Filtrer plusieurs TCD sur des feuilles différentes

[antha]

Bonjour à tou(te)s,

J'aurai besoin de modifier un filtre sur plusieurs TCD en même temps dans mon classeurs, en l'occurence le mois de référence.

J'ai fait plusieurs recherches sur le forum, j'ai trouvé comment le faire pour des TCD qui se trouvent sur la même feuille, cela fonctionne correctement.

Private Sub CommandButton1_Click()
Dim Selection_Liste As String
    Selection_Liste = Range("A26").Value
        
    ActiveSheet.PivotTables("tcd1").PivotFields( _
        "Mois").CurrentPage = Selection_Liste
   ActiveSheet.PivotTables("tcd2").PivotFields( _
        "Mois").CurrentPage = Selection_Liste
   ActiveSheet.PivotTables("tcd3").PivotFields( _
        "Mois").CurrentPage = Selection_Liste

End Sub

Mais je ne connais rien au vba et n'ai pas réussi à le modifier pour que cela fonctionne lorsque les TCD sont sur des feuilles différentes, et vu la structure du classeur et le nombre de tcd je ne peux pas tous les mettre sur la meme. J'ai essayé en insérant Sheet(x).Select, mais il me sort une erreur.

Merci de votre aide.