Bonjour Pierre,
En utilisant l'évènement Change du TextBox1, on peut mettre ce code :
Private Sub TextBox1_Change()
On Error Resume Next
TextBox2.Text = ""
TextBox2.Text = Application.WorksheetFunction.VLookup(Val(TextBox1.Text), Range(PlageCorrespondances),2, False)
On Error GoTo 0
End Sub
Je te joins un exemple.
Cordialement.
Didier