Private Sub TextBox17_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox17) = 4 Then 'que si 4 chiffres
Lig = Application.Match(Val(TextBox17), Feuil2.[B:B], 0)
If IsNumeric(Lig) Then MsgBox "CE NUMERO EXISTE DEJA", vbExclamation, "A CHANGER": TextBox17 = ""
End If
End Sub