Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
' plage à modifier a4:m20
If Not Intersect(Target, Range("a4:m20")) Is Nothing Then
If Target.Value = 0 Then
Call MsgBox("Vous ne pouvez pas indiquer une valeur nulle", vbInformation, Application.Name)
End If
End If
End Sub