Mon Autofilter ne s'applique pas

slt,

Je voulais réaliser un autofilter sur un listobject (jusque là rien de sorcier)
apres avoir résolu le probleme de l'inversion des jour et des mois dans les dates je suis surpris de ne pas voir mon filtre s'appliquer. Si je vais dans le menu déroulant de l'autofilter il y en a pourtant un et il me suffit de cliquer su Ok pour que le miens s'applique.

Y'a t'il une fonction genre apply comme pour les sort ?

pourquoi l'enregistreur de macro n'a pas besoin de cette infirmation ?

(mon code)

 With dec.Tab_listeCompte.ListColumns("relevés mensuels")
            With .Range(Target.Offset(0, -1).Value)
                criter1 = .Value
            End With
            With .Range(Application.WorksheetFunction.Max(Target.Offset(0, -1).Value - dec.Wks_compte.Cells(1, 1).Value + 1, 2))
                criter2 = .Value
            End With
        End With
            dec.Wks_listeCompte.Activate
            dec.Tab_listeCompte.DataBodyRange.Select
            Selection.AutoFilter Field:=2, Operator:=xlFilterValues, Criteria1:="<=" & criter1, Criteria2:=">=" & criter2