textbox qui lance une macro

[Yvon]

Bonjour à tous,

J'ai un useform avec une txtbox, je souhaiterai lorsque l'on écrive dans la txtbox, cela affiche la ligne (parce qu'elle est cachée), ou s'incrémente le texte.

Je vous livre le code:

Private Sub TextBox1_Change()
sheets(14).Range('B13').Value = TextBox1
if textbox1.value = sheets(14).Select Rows('13:13).Select Selection.EntireRow.Hidden = True ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
sheets(1).Select

End Sub

Par avance merci

Bonne soirée
Yvon