Généraliser un même traitement sur plusieurs feuilles

Bonjour à tous

J'ai un fichier ou je cherche un filtrer les éléments d'une colonne.

A travers l'enregistreur j'ai réaliser une macro pour le filtrage.

Ce que je n'arrive pas à faire c'est de généraliser le filtrage sur les autres feuilles automatiquement.

Ci-dessous le code pour le filtrage:

Sub Macro1()
'
' Macro1 Macro
'
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=4, Criteria1:= _
        Array("251121", "251122", "251125", "251130", "251132"), Operator:=xlFilterValues
End Sub

Voici ce que j'ai pu bricoler qui malheureusement ne fonctionne pas.

Je vous prie de l'apprécier et m'aider à le parfaire.

Sub Macro1()
'
' Macro1 Macro

Dim sh as worksheet

For each sh in worksheets
if sh.name <> "feuil1" then
sh.select

    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=4, Criteria1:= _
        Array("251121", "251122", "251125", "251130", "251132"), Operator:=xlFilterValues
end if
next sh
End Sub

Merci pour votre aide

Bonjour,

Sub Macro1()
    Dim sh As Worksheet, adr$
    adr = Worksheets("Feuil1").ListObjects("Tableau1").HeaderRowRange.Address
    For Each sh In Worksheets
        sh.Range(adr).AutoFilter 4, Array("251121", "251122", "251125", "251130", "251132"), xlFilterValues
    Next sh
End Sub

Cordialement.

Bonsoir M.Ferrand et le forum

Merci pour votre proposition.

Elle fonctionne à merveil.