deux filtres silmutanément par VBA

Sub Macro23encours()
Dim DerLigCible, DerLigSource, DerLigBNP

' copie de la feuille BNP OK
        'affichage de toutes les données
 If Not Sheets("BNP").AutoFilterMode Then Sheets("BNP").Range("A1:I1").AutoFilter
    Sheets("BNP").ShowAllData
        ' calcul dernière ligne BNP
    DerLigBNP = Sheets("BNP").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("BNP").Range("A1:I" & DerLigBNP).Copy
    Sheets("8").Range("A1").PasteSpecial Paste:=xlPasteValues
 ' nous sommes donc toujours sur la feuille 8 donc
        'calcul dernière ligne feuille 8
 DerLigSource = Sheets("8").Range("A" & Rows.Count).End(xlUp).Row
        'activation du filtre
 If Not Sheets("8").AutoFilterMode Then Sheets("8").Range("A1:I1").AutoFilter
' Columns("A:I").AutoFilter
    ActiveSheet.Range("A1:I" & DerLigSource).Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlGuess
    ActiveSheet.Range("A1:I" & DerLigSource).AutoFilter Field:=9, Criteria1:="CHEQUE N°"
    'ActiveSheet.Range("A1:I" & DerLigSource).AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "1/28/2014")
        
' copie de feuille 8  sur  feuille 7
DerLigCible = Sheets("7").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("8").Range("A1:I" & DerLigSource).SpecialCells(xlCellTypeVisible).Copy Worksheets("7").Range("A" & DerLigCible)
....
....
End sub