filtrer un TCD avec VBA

Bonjour le forum

J'ai un Tableau croisé dynamique j'aimerais à l'aide d'un bouton vba filtré par rapport à une liste.
J’ai trouvé cette formule qui me semble bien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton2_Click() With ActiveSheet.PivotTables("TCD").PivotFields("Date") .PivotItems(mag).Visible = True 'plage qui parcourt l'ensemble des valeurs Set plage = Worksheets("feuil1").Range("f1:f" & tous_les_mag) 'je parcours les éléments de la liste un à un For Each z In plage If z.Value <> mag Then .PivotItems(z.Value).Visible = False End If Next End With End Sub

---

Mais il y a une erreur sur "mag" mais je ne sais pas quoi
Si quelqu'un pouvais me venir en aide ou me conseiller une autre formule

Merci d'avance