Essaie ce code en lieu et place de celui que je t'ai donné avant
Code:
Sub AnnuleTCD()
Sheets('nom de la feuille contenant le TCD').Activate
ActiveSheet.PivotTables('nom du TCD').PivotSelect '', xlDataAndLabel
Selection.Clear
Range('A1').Select
End Sub