Private Sub TextBox1_AfterUpdate()
Dim Valeur As Long, derlig As Long, lig As Long, plage As Range, cel As Range
Static Num
Num = TextBox1.Value
With Feuil1
lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
derlig = .Range("a" & Rows.Count).End(xlUp).Row
Set plage = .Range("a2:a" & derlig)
Set cel = plage.Find(TextBox1, , xlValues)
If Not cel Is Nothing Then
Valeur = cel.Offset(0, 0).Value
End If
If Num = Valeur Then: MsgBox "Attention! Déjà inscrit.", , "FOCUS TEST": TextBox1 = "": Exit Sub
SendKeys "+{TAB}", False
If Num <> Valeur Then
.Cells(lig, 1) = Format(Val(Num), "0")
SendKeys "+{TAB}", True
End If
End With
End Sub