Bonjour,
Si tu déclares ta variable en STRING --> C’est du texte, donc pas de format de valeur
Sub filtre()
Dim str As String
str = Sheets("feuil1").Range("g2").Text
ActiveSheet.ListObjects("Ta").Range.AutoFilter Field:=7, Criteria1:=str
End Sub