problème filtre auto par VBA

[roazak]

Bonjour
J'ai un code VBA qui crée un filtre automatique jusque là ça marche bien mais le problème est que quand je met les critères de sélection du filtre il me met "erreur de syntaxe".
Voici le code en question.

Sub Filtre_auto()
Dim Deb As Integer, Lignes As Long, Bws As Worksheet, Dws As Worksheet, Fin As Integer

Set Bws = Worksheets("maintenance préventive")
Set Dws = Worksheets("Resultats")
Deb = 4
With Bws
 Fin = Range("A65536").End(xlUp).Row
End With
Application.ScreenUpdating = False

With Bws
          .Range("C" & Deb, "I" & Fin).Copy
          If Not .AutoFilterMode Then .Range("A4:I4").AutoFilter
          With Dws.Range("C2")
          .PasteSpecial Paste:=xlPasteAll
          End With
End With
Dws.Activate
With Dws
If Not .AutoFilterMode Then .Range("C2:I2").AutoFilter
   With Selection
        .Sort Key1:=Range("G" & Deb), order1:=xlDescending, Header:=xlGuess, Orientation:=xlTopToBottom
        .AutoFilter Field = 5, Criteria1:">=10"
   End With
End With
End Sub

j'ai pourtant regardé sur divers forum et appliqué ce qui y était écrit mais l'erreur persiste.