Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A4:A12,A23:A54]) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
Application.Undo 'annule la modification
Application.EnableEvents = True 'réactive les évènements
MsgBox "Information à saisir dans la feuille Echéancier !", 48
End Sub