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