Salut !
comme ça, ça devrait mieux fonctionner...
Private Sub TextBox2_Change()
valachercher=TextBox1.Value
TextBox2.Value=WorksheetFunction.Vlookup(valachercher,"a2:b50", 2,False)
End Sub
je ne l'ai pas essayée, alors je ne peux pas te promettre une total réussite...En revanche, regarde bien le message de ThierryR car il t'a parfaitement indiqué la manière de rédiger le code...
Bye !
David Of Lunel