Cocher tous les filtres sur un TCD en VBA

Bonjour,

Je cherche à cocher tous les filtres grâce à du code VBA présents sur un tableau croisé dynamique.
J'ai utilisé le code suivant :

For Each pt In ActiveSheet.PivotTables
For Each pf In pt.VisibleFields
For Each Pi In pf.PivotItems
On Error Resume Next
Pi.Visible = True
Next Pi
Next pf
Next pt

J'obtiens l'erreur : "Erreur d'exécution '1004' ".

Quelqu'un voit-il d'où vient le problème et si non, avez-vous une autre solution pour activer tous les filtres par VBA?

Je vous remercie d'avance!!