Sub test()
Dim Num As Variant
Dim i As Integer
i = 0
Do While i < 1
Num = InputBox("Veuillez tapez un numéro de LOT SVP.(exemple : B080034AE2)", "Numéro de LOT ", NUMERO)
If Num = "" Then Exit Sub ' si on écrit rien on sort de la boucle
' validation de données ( dans le document en entier les données sont dans une autre feuille dans la plage("J2:J1797") ...)
If Num <> Range("A2").Value Or Num <> Range("A3").Value Or Num <> Range("A4").Value Then
MsgBox ("Erreur ! Merci de taper un numéro valide")
Else ' on sort de la boucle
i = i + 1
End If
Loop
Range("D3") = Num
End Sub