With Sheets("Base")
For Each Cell In .Range("A2:A" & .Range("B65536").End(xlUp).Row)
If Cell = TextBox1.Value Then
MsgBox ("Impossible d'enregistrer plusieurs fois les mêmes données.")
Exit Sub
Else
If Cell <> TextBox1.Value Then
'Liste des instructions de report des valeurs saisies dans le formulaire
Exit For
End If
If Cell = TextBox1.Value Then
MsgBox ("Impossible d'enregistrer plusieurs fois les mêmes données.")
Exit Sub
Exit For
Else