Renomer une série de TCD

Bonjour à tous,

Dans un onglet j'ai une très longue série de TCD (+200).

Ils sont tous positionné en colonne à partir de la ligne 21.

Je souhaite pouvoir les renommer avec la valeur qui se trouve ligne 10 de la première colonne de chaque TCD.

Je bute sur comment identifier la première colonne de chaque TCD.

D'avance merci pour vos contributions.

TCD = Tableau croisé dynamique

Bonjour,

Voici la solution que j'ai finalement trouvé :

Sub ChangePivotName04()

Dim PT As PivotTable
Dim PT_COL As Integer

    Application.Calculation = xlManual

    For Each PT In ActiveSheet.PivotTables

        PT_COL = PT.TableRange1.Column
        PT.Name = "KL_PRICE_PT_" & Cells(10, PT_COL).Value

    Next PT

    Application.Calculation = xlAutomatic

End Sub

Bonne journée à tous.