Macro VBA, Actualisation d'un TCD

Bonjour a tous,
j'espere que vous serez en mesure de m'aider, j'ai un petit probleme, j'aimerais créer une macro qui actualiserait automatiquement un TCD lorsque le résultat d'une formule change.

Donc dans la cellule A1 il y a une formule toute simple =somme(B1;B10) et lorsque le résultat de cette formule change j'aimerais que le TCD automatiquement s'actualise sans devoir passer par Options/Actualiser

Voici ce que j'ai tenté de faire, ce code fonctionne a condition que la valeur dans la cellule A1 soit rentré manuellement donc elle ne prend pas le changement de valeur vu que ce changement vient d'une formule (exemple, si dans la cellule il est écrit 1 et que je change pour 2 alors la macro fonctionnera sans aucuns problemes)

****Feuille ou se trouve le TCD****
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call Module1.MAJTCD
End If
End Sub


****Module 1****
Sub MAJTCD()
ActiveSheet.PivotTables("TCD1").RefreshTable
End Sub



Donc j'aimerais savoir si j'ai fait une erreur??? Ou est-ce possible d'avoir une macro qui pourrait actualiser automatiquement quand le resultat d'une formule change???

Merci de votre aide, c'est apprécié.