Sub EtiquettesDeChamps()
Dim Tcd As PivotTable, Pfd As PivotField, Pvi As PivotItem
Dim plg As Range
With ThisWorkbook.Sheets("TCD1")
Set Tcd = .PivotTables(1)
'
' Au besoin rajouter une colonne à gauche du tcd
If Tcd.DataBodyRange.Columns(1).Column = 1 Then
Tcd.DataBodyRange.Columns(1).EntireColumn.Insert xlShiftToRight
End If
'
' Vider la colonne à gauche
Tcd.DataBodyRange.Columns(1).Offset(, -1).ClearContents
'
' Parcourir tous les champs de tcd
For Each Pfd In Tcd.PivotFields
'
' si l' orientation est en ligne
If Pfd.Orientation = xlRowField Then
'
' Parcourir tous les items
For Each Pvi In Pfd.PivotItems
'
' inscrire le nom du champ à gauche de la ligne
Pvi.DataRange.Offset(, -1) = Pvi.Parent.Name
Next Pvi
End If
Next
'
' Ajustement automatique de la largeur de colonne
Tcd.DataBodyRange.Columns(1).Offset(, -1).AutoFit
End With
End Sub