Coucou !!!

J'ai un code super simple, mais qui refuse catégoriquement de fonctionner...
J'ai tout vérifié, le nom du TCD est correct...
Il me semble même que cette formule elle marchait au départ... pourquoi plus maintenant !!!?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Worksheet_Activate()
 
'Mise à jour du TDC
ActiveSheet.PivotTables("TCD").PivotCache.Refresh
 
End Sub
ERREUR :

Erreur 1004 : Impossible de lire la propriété pivot tables de la classe Worksheet...

??? pourquoi impossible ? Qu'est ce que je fais de mal ?

Merci d'avance de votre généreuse aide !