toutes les valeurs d'un pivotfield

Bonjour,

je cherche un moyen en VBA de faire prendre à un champ pivotfield toutes ses valeurs les unes après les autres.

Ainsi si le pivotfield "marque" a pour valeur A, B ou C, je souhaite qu'il prenne successivement chacune de ses valeurs.

Mais pour cela je n'arrive pas dans le cadre d'une instruction VBA du type
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("marque"). CurrentPage = "A"
a modifier CurrentPage pour lui faire prendre toutes les valeurs de "marque".

Quelqu'un a t il une idée?

Merci