Private Sub TextBox1_AfterUpdate()
Dim Msg As String
Dim i As Long
Msg = "Ce numéro de facture n'est pas utilisé"
For i = 2 To 100
'Si on trouve un numéro de facture identique dans la liste,
If Cells(i, 1).Value = CDbl(TextBox1.Value * 1) Then
'Si la colonne B n'est pas vide
If Cells(i, 2).Value <> "" Then
Msg = "Ce numéro de facture est déjà utilisé"
TextBox1 = "" 'Réinitialisation du text box
TextBox1.SetFocus 'Pour revenir sur text box
Cells(i, 2).Select
Exit For
End If
Else
End If
Next
MsgBox Msg
End Sub