Filtre avec une valeur par rapport a une cellule

bonjour
j’ai un tableau “Ta” de 8 colonnes
format des chiffre utilisé dans le mon tableau et la cellule G2 est nombre avec séparation des milliers
je souhaite faire un filtre dans la 7eme ligne avec la valeurs qui se trouve dans la cellule G2
voici mon macro

Sub filtre()
Dim str As String
str = Format(Sheets(“feuil1”).Range(“g2”).Value, “#,##0.00”)
ActiveSheet.ListObjects(“Ta”).Range.AutoFilter Field:=7, Criteria1:=Array(2, str)
End Sub

mon problème que le macro fonctionne avec les nombre inférieure de 999,99 .mais égale a 1 000,00 ou supérieure ça marche pas
je suis sure que le format “#,##0.00” est compatible avec les nombre inférieure de 999,99 mais plus je ne sais pas
voici mon fichier démo
https://drive.google.com/open?id=1nkm3DBjC_yd_YJWW_bkrnbOvrPz44LWu

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
1 J'aime

Oui c’est ça Merci beaucoup