Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Me.UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target 'si entrées multiples
If Target.Row > 1 And Not Target.Locked And Target <> "" Then
If Target(0) = "" Then
MsgBox Target(0).Address(0, 0) & " n'est pas renseignée !", 48, "PROTECTION"
With Application
.EnableEvents = False
.Undo 'annule la modification
.EnableEvents = True
Target(0).Select
Exit For
End With
End If
End If
Next
End Sub