Effacer filtres d'un tableau

Bonjour,

J'ai plusieurs exemples de macro pour effacer les filtres d'une feuille, par exemple celui-ci :

With Sheets("Feuil1")
    If .AutoFilterMode And .FilterMode Then .ShowAllData
End With

mais si les données sont dans un tableau ça ne fonctionne pas. Est-ce possible et quel serait le code ?

Merci d'avance.

Bonjour,
Une exemple.
Cdlt.

Sub test_filtre()
    With Worksheets("Feuil1").ListObjects(1)
        If .ShowAutoFilter Then .AutoFilter.ShowAllData
    End With
End Sub

Bonjour,

C'est parfait, merci beaucoup.