[TDC] - Déplacer en étiquette de colonne

Bonjour à tous,

Voila un petit moment que je bloques sur un problème.

J'ai crée un TCD via une macro avec plusieurs données en valeurs, Excel me créer donc un champ Σ Valeurs et le place en étiquette de ligne.

Cependant pour mes besoins, je veux déplacer ce champ en étiquette de colonne. (Toujours en vba)

Je remercie d'avance la ou les personnes qui pourront m'aider.

Je viens de trouver la solution ... Comme quoi après une bonne nuit de sommeil et un bon café ça aide

 With Sheets("MaFeuille").PivotTables("MonTCD")
        .PivotFields("Données").Orientation = xlColumnField       
 End With