Exécuter un macro à partir d'une cellule

Bonjour,

J'ai un macro, nommé "zones", qui fonctionne bien. Et je voudrais l'exécuter en appuyant sur la touche "Entrée" lorsque la cellule "J19" est sélectionnée. C'est-à dire, quand je valide une valeur dans cette cellule, mon macro doit s'exécuter. Voici le code que j'ai essayé :

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Range("j19") = True Then
Application.OnKey "{ENTER}", "Thisworkbook.zones"
End If
End Sub

Mais cela ne fonctionne pas. Pourtant lorsque je fais exécuter directement depuis Microsoft Visual Basic, ça marche bien.
Est-ce que quelqu'un pourrait m'aider ?