textbox affiche une cellule avec rechercheV

Bonsoir à tous,

J'ai un USF avec deux textbox, une qui envoie dans la feuille la donnée, qui est comparée par une cellule avec recherchv sur une base, la deuxième textbox doit renvoyer la recherche, si la recherche est positive cela marche, si la donnée n'existe pas cela plante:

Quelqu'un peut il maider

Par avance merci
Yvon

Private Sub TextBox1_Change()
Sheets(1).Range('C102') = TextBox1.Value
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Me.textbox11.Value = Sheets(1).Range('L102').Value
End Sub