Cocher tout les PivotItems sauf ("0") par macro

Bonjour à tous,

j'essaye par macro de mettre à jour un tableau croisé dynamique pour qu'il prenne en compte des données suplémentaires.

ainsi à chaque lancement de macro je souhaite selectionner le filtre et tout cocher (pour cocher aussi les nouvelles données non prise en compte, puis décocher la valeur "0".

Jai le code ci-dessous mais pas le bon résultat. Les valeurs décochées au départ le reste, alors que je souhaite bien tout cocher avant d'enlever la 0.

Merci par avance

ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("TVA PI"). _

CurrentPage = "(All)"

With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("TVA PI")

.PivotItems("0").Visible = False

End With

j'ai trouvé la réponse, voici le code :

    Sheets("IND famille").PivotTables("Tableau croisé dynamique4").PivotFields("TVA PI").ClearManualFilter
    Sheets("IND famille").PivotTables("Tableau croisé dynamique4").PivotFields("TVA PI"). _
        CurrentPage = "(All)"
    With Sheets("IND famille").PivotTables("Tableau croisé dynamique4").PivotFields("TVA PI")
        .PivotItems("0").Visible = False
    End With

4