Private Sub Doublon_Click()
Dim plage As Range
Dim cel
Dim a As String, b As Byte
If NumLot = "" Then
MsgBox "Veuillez renseigner le numéro de lot du produit"
ElseIf Len(NumLot) <> 10 Then
MsgBox "Le numéro de lot que vous avez rentré fait " & Len(NumLot) & " caractères." & Chr(13) & _
"Il en faut 10 !" & vbCrLf & "Exemple : 17F4613800" & Chr(13) & "Recommencer...", 16
Exit Sub
Else
End If
Set plage = Range("A2:A" & v_DerniereLigne)
For Each cel In plage
If cel.Value = UCase(NumLot) Then
NumLot.BackColor = RGB(255, 0, 0)
MsgBox "Cette OF à déja été contrôlé" & vbCrLf & "Changer d'OF"
Exit Sub
End If
Next cel
NumLot.BackColor = RGB(100, 255, 100)
Verif.Visible = True
MultiPage1.Visible = True
CommandButton1.Visible = True
Confirmer.Visible = True
Conformite.Visible = True
Label10.Visible = True
Label11.Visible = True
Label12.Visible = True
Label13.Visible = True
Label14.Visible = True
End Sub