If Not Intersect(Target, Range("b10")) Is Nothing Then
If [a10] = "" Or [a10] = "N° ?" Or [a10] = "ERREUR N° - ERREUR N°" Then
Application.EnableEvents = False
MsgBox ("B7 : PAS DE N° ou ERREUR N° !")
[b7] = ""
[b10] = ""
[a1].Select
Application.EnableEvents = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else
CreateObject("wscript.shell").SendKeys "%{down}"