Problème avec TCD

Bonjour,

J'ai un tableau croisé dynamique qui contient en étiquette de ligne des références (appelées ici PRODUIT).
Je fais une macro assez longue mais à un moment j'ai besoin d'utiliser ce TCD pour afficher une seule référence.
Or si au début tout est affiché sur le TCD, et que je fais uniquement
With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("PRODUIT" _
)
.PivotItems("HD123/456").Visible = True
End With

il va continuer de tout m'afficher et pas m'afficher uniquement le HD123/456

Quand j'enregistre la macro sur excel (en faisant enregistrer la macro) la macro crée automatiquement est de ce type :

With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("PRODUIT" _
)
.PivotItems("HD123/456").Visible = True
.PivotItems("HD456/444").Visible = False
.PivotItems("HD488/444").Visible = False
..
.
..
.
.
.
End With

et les petits points représentent toutes les références du TCD ! autrement dit il rend non visible totues les références sauf celle que je veux afficher qu'il rend visible.
Mais c'est pas du tout pratique ocmme technique pour deux raisons
-il y a énormément de référence
-je ne connais pas toutes les références présentes dans le TCD

Je suis sûr qu'il y a un moyen simple pour faire ce que je veux. Pouvez-vous m'aider ?
merci d'avance !