Private Sub TextBox66_AfterUpdate()
Dim vLgn As Integer
With Worksheets("Feuil1")
vLgn = .Range("A65536").End(xlUp).Row + 1
.Cells(vLgn, 1) = TextBox66
.Cells(vLgn, 2) = "N° inconnu"
TextBox67 = .Cells(Application.Match(TextBox66, .Range("A:A"), 0), 2)
Range(.Cells(vLgn, 1), .Cells(vLgn, 2)).ClearContents
End With
End Sub