Affichage d'une boite de dialogue

Comment on affiche le message de boite de dialogue MsgBox() sans avoir à passer par un bouton mais directement quand on change la valeur de la cellule dans une feuille ?

Bonjour,

Via une procédure événementielle dont le code est rattachée à la feuille d'intérêt, ici dans le code de la Feuil1. En cas de changement de valeur dans la plage A1:A3, le msgbox apparaît.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
    MsgBox "Cette valeur a changé"
End If
End Sub

Cdlt,