Evenement Changement valeur cellule avec formule

Bonjour à tous,

Je cherche à réaliser une action lorsque la valeur de la cellule est modifiée. Or cette cellule est modifié directement par une formule, la fonction Worksheet_Change ne détecte pas le changement de valeur par une formule.

Ici mon code qui ne fonctionne pas

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("A2")) Is Nothing Then

Range("A1").Value = Range("A2").Value
   Macro1
 End If
End Sub

Ma cellule A2 contient par exemple =A3, je souhaite que lorsque je change la valeur de A3, A1 prenne la valeur de A3

Ma cellule A2 est en lien avec une feuille connectée en Direct Data Exchange issu d'un autre logiciel, elle se met donc à jour automatiquement.

J'espère avoir été clair, merci de votre aide.

Bonjour,

essayer avec l’événement Worksheet_Calculate

Ca fonctionne, merci beaucoup, bonne soirée