VBA et TCD : Lire une sélection

Bonjour à tous,

Je me lance dans les macros et les tableaux croisés dynamiques. J'ai bien compris les collections

• PivotTable : nom du TCD
• PivotFields : liste des champs du TCD
• Pour connaitre la valeur sélectionnée dans le filtre de page, on utilise la propriété CurrentPage
• PivotItems : liste des données d'un pivotField

Je bloque sur la récupération de la liste des items affichés dans le TCD en entête de colonne ou de lignes suite à la sélection d'une valeur dans le filtre de page.
J'ai bien trouvé PivotFields(1).datarange.pivotItems, mais je ne comprends pas comment on peut parcourir toute la liste des valeurs, je ne trouve que la première...

Mon TCD n'est pas basé sur une base de données, mais sur une feuille excel.

Merci de vos lumières !