BoolErr=True
For N = 3 To 50
If Nom = Sheets(NFeuil).Range("E" & N).Value Then
BoolErr = False
Exit For
End If
Next N
if BoolErr then
MsgBox "Ce NOM n'existe pas !!", vbCritical, "ERREUR !!"
With TextBox2
.Value = ""
.SetFocus
End With
Exit Sub
end if