Activation de macro

Bonjour à tous,

J'ai les codes suivants dans une feuille :
Sub Macro1()
Range("M17").GoalSeek Goal:=0, ChangingCell:=Range("B3")
End Sub

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

Celles-ci fonctionnent bien à condition que je change moi-même la valeur dans la cellule M17.

Cependant, si je met une formule dans la cellule M17, cette dernière change de valeur mais n'active pas la macro.

Quelles sont les modifs que je dois apporter aux macros?

En vous remerciant,

Michel