enlève filtre sur plusieurs feuilles avec macro

Dim I As Long
Dim NBOnglet As Byte

For NBOnglet = 3 To 34

    Sheets(NBOnglet).Select
    ActiveSheet.Unprotect Password:=Feuil07.Range("A1").Value

    
    Selection.AutoFilter
    Range("$D$11:$D$880").Select
    Selection.Copy
    Range("$L$11:$L$880").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Selection.AutoFilter
    Range("$c$11:$c$880").Select
    Selection.Copy
    Range("$m$11:$m$880").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
           ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Feuil07.Range("A1").Value
Next NBOnglet