Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.[A4:A9999]) Is Nothing Then Exit Sub
If Target.Columns.Count > 3 Then Exit Sub
MsgBox "La modification des cellules de la colonne A n'est pas autorisée !"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub