Bouton recherche désignation

Bonjour à tous, je voudrais créer une macro dans le bouton "recherche article".

En effet, quand on clique sur ce bouton une page s'ouvre avec une textbox pour indiquer la désignation d'une pièce dans la feuille 2. En écrivant dans l'espace pour écrire la désignation il faudrait également quand je commence un mot par exemple "couteau" et j'écris "cou" ça me mette tout les résultats trouvés avec le mot cou à l'intérieur.

Et un bouton recherche dans la page pour valider la recherche.

Ensuite quand on valide la recherche il faudrait que la ligne de la désignation recherché soit surlignée en vert.

Merci d'avance

Bonjour,

je n'ai pas trouvé ton bouton , mais c'est pas grave ,

voila le résultat de mes tests

et le code dans Feuil1

Private TabTmp() As Variant
Private TabData() As Variant

Private Sub CommandButton1_Click()
    Me.TextBox1.Value = ""
    Me.ListBox1.Clear
    Call ChargeTab
End Sub

Private Sub TextBox1_Change()
    If Len(TextBox1.Value) > 2 Then
        Call RechercheArticle(TextBox1.Value)
    End If
End Sub

Private Sub ChargeTab()
    ReDim TabData(1)
    LigneDeb = Sheets("Stock").Range("c2").End(xlDown).Row
    LigneFinMax = Sheets("Stock").Range("c" & Rows.Count).End(xlUp).Row
    '-----
    TabTmp = Sheets("Stock").Range("c" & LigneDeb & ":c" & LigneFinMax).Value
    For n = 1 To UBound(TabTmp)
        If Len(TabTmp(n, 1)) > 0 Then
            n2 = n2 + 1
            ReDim Preserve TabData(n2)
            TabData(n2) = TabTmp(n, 1)
        End If
    Next n
End Sub

Private Sub RechercheArticle(Art As String)
    Me.ListBox1.Clear
    For n = 1 To UBound(TabData)
        If InStr(LCase(TabData(n)), LCase(Art)) > 0 Then
            Me.ListBox1.AddItem TabData(n)
        End If
    Next n
End Sub

Fichier_JP-v2

@+JP

Bonjour merci beaucoup pour ton aide mjpmjp

Je réussis pas à rentrer le programme dans mon bouton qui est sur la feuille "menu" 2ème boutons en partant du haut "rechercher article".