Bonjour,
Je le mets aussi par ici en note à moi même, au cas où il est possible de se baser sur la propriété Locked (donc si la cellule est vérouillée ou non) de l'objet Target sans spécifier de plage d'intersect. Donc en repartant sur le code de BrunoM45 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Locked = True Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Il est écrit ne pas modifier ;-)", vbCritical, "OUPS..."
End If
End Sub
Cdlt,