Bonjour,

Comment puis je remplacer le nom du Pivot Fields par la référence d'une cellule qui contient son nom ?


Sub Macro99()
Sheets("tcd").Select
ActiveSheet.PivotTables("tcd").AddDataField ActiveSheet.PivotTables("tcd"). _
PivotFields("annuaire"), " annuaire", xlSum
Sheets("Selection").Select
End Sub

Merci de votre aide