Dim i As Integer
    Dim nbT As Integer

        'tri sur colonne POI
    Worksheets("OPX inter").Select
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$L$65536").AutoFilter Field:=7, Criteria1:="<> "
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
                'Ajout d'une feuille "SIAT"
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "OPX"
    Worksheets("OPX").Select
    Range("A1").Select
    ActiveSheet.Paste

        'tri sur colonne affect metier
    Worksheets("OPX inter").Select
    Worksheets("OPX inter").AutoFilterMode = False
    Application.CutCopyMode = False
    nbT = WorksheetFunction.CountA(Columns("A:A"))
    For i = 1 To nbT
        If Cells(i, 7).Value = "" Then
            If Cells(i, 8).Value = "IPE*" Then
                Cells(i, 8).EntireRow.Copy
                Sheets("OPX").Select
                Range("A1").End(xlDown).Offset(1, 0).Select 'marche pas du tout à ce niveau là
                ActiveSheet.Paste
            End If
        End If
    Next i