PivotTables et assigner une valeur un filtre

Bonjour à tous,

Une petite question sur l'exploitation des Pivot tables en Vba.

Je sais assigner une variable à une valeur à un PivotField via :

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("CG4"). _
CurrentPage = fieldCG4

Je souhaite affecter une variable à une étiquette de ligne. (les champs mis en lignes)

L'enregistreur de macro me l'identifie comme un PivotField mais la même syntaxe qui fonctionne pour une étiquette d'en-tête ne fonctionne pas pour une étiquette de ligne.

L'enregistreur me donne :

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Réseau")
.PivotItems("CHASSIS").Visible = False
.PivotItems("ENGINE PARTS").Visible = False
End With

Il semble que l'on soit obligé de déclarer ce que l'on souhaite masquer et non pas ce que l'on souhaite afficher....😕

Existe t-il une syntaxe qui permette :
- de les mettre tous les .PivotItems en .visible = false sauf évidement celui que je souhaite afficher😀😀😀


D'avance merci pour votre aide toujours aussi efficace.

😀