Recuperation de la valeur d'un filtre TCD en VBA

Bonjour,

J'ai crée un TCD sous Excel 2010 avec un cube OLAP.
Je souhaite récuperer la valeur de mon filtre dans le VBA.

Exemple

Filtre : Prog1


Rubrique valeur
Charges 10
Recette 15

J'ai execute ce code

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each pvt In ActiveSheet.PivotTables For Each fld In pvt.PivotFields For Each itm In fld.PivotItems   MsgBox itm   Next itm Next fld Next pvt

---

Avec ce code, j'ai les valeurs suivantes Charges, Recette, Prog1 (la valeur du filtre), et valeur.

Comment puis je faire pour récupérer uniquement Prog1 (la valeur du filtre du TCD)?

Merci par avance