Code VBA sur les filtres rapport d un TCD

[nivolo]

Bonsoir à tous,

j ai un TCD avec un filtre rapport qui contient plus de 100 éléments.

Comment faire un code qui regroupe tous ces éléments de code en une seule ligne si possible.
QUand je l ai veux tous j ai True et quand je veux les masquer c est False sauf celui souhaité.


LA macro enregistré me met:
with ActiveSheet.PivotTables("TCD1").PivotFields("VOiTURES").PivotItems ("Element1").visible= true
.PivotItems ("Element1").visible= true
.PivotItems ("Element2").visible= true
.PivotItems ("Element3").visible= true
.PivotItems ("Element4").visible= true
.PivotItems ("Element5").visible= true


Au final c est lourd

Merci de votre aide