Renommer TCD Suivant le Nom de la Feuile

Bonjour,

J'ai une feuille avec un TCD et je voudrais que lors de la duplication de cette feuille le TCD inclus dans cette dernière ce nomme du même nom que la feuille.

Pouvez-vous m'aider.

Merci d'avance.

Bonjour,

renommage à l'activation de la feuille :

Private Sub Worksheet_Activate()
    Dim pt As PivotTable, nb As Long
    For Each pt In ActiveSheet.PivotTables 
        nb = nb + 1
        pt.Name = ActiveSheet.Name & " TCD" & nb
    Next pt
End Sub

J'ai préféré ajouter "TCD " en suffixe pour éviter toute confusion, plus un numéro pour éviter une erreur s'il y a plusieurs TCD.

eric