Macro pour RAZ filtre de tableau

Bonjour à tous,

j'ai un tableau dans lequel j'ai 14 colonnes, contenant chacune un filtre.
Grâce à une macro, je souhaite pouvoir d'un clic d'un bouton RAZ tous les filtres.

Mon problème est que cette macro est très lente, entre 20 et 30 seconde d'exécution ce qui la rend inutile car cela prend moins de temps à tout faire à la main.

Voici le code de la macro:

Sub RAZ

ActiveSheet.ListObjects("Tableau1").range.AutoFilter Field:=1
ActiveSheet.ListObjects("Tableau1").range.AutoFilter Field:=2
.
.
.
ActiveSheet.ListObjects("Tableau1").range.AutoFilter Field:=14

End sub

Quelqu'un aurait-il une piste pour la rendre plus efficace svp?

Merci d'avance!

Bonjour xcelnoob, le forum,

A tester...

If ActiveSheet.ListObjects("Tableau1").ShowAutoFilter Then ActiveSheet.ListObjects("Tableau1").AutoFilter.ShowAllData

où

 With ActiveSheet.ListObjects("Tableau1")
  If .ShowAutoFilter Then .AutoFilter.ShowAllData
 End With

Cordialement,

Super! C'est parfait! Merci bien!