Private Sub TextBox3_Change()
TextBox2 = TextBox3.Value
If TextBox3 = "" Then TextBox8 = "": Exit Sub
On Error Resume Next
lig = Application.Match(CDbl(TextBox3), Feuil2.[A1:A10000], 0)
If Not IsNumeric(lig) Or Err > 0 Then
MsgBox "incorrect": TextBox3 = "": Exit Sub
Else
TextBox8 = Feuil2.Cells(lig, 2)
End If
End Sub