Fonction de recherche dans une Listbox VBA

Bonjour la communauté,

Je suis perdu concernant la fonction "chercher" dans mon formulaire VBA. Je souhaite faire une recherche dans une dans le champ "recherche" permettant de trouver une donnée dans la listbox. Lorsque je tape quelque chose, il y a un message d'erreur qui s'affiche. Puis lorsque je me rends dans le code, ceci s'affiche:

Private Sub TxtChercher_Change()
    Dim x As Long
    Dim y As Long
    x = Sheets("feuille matricule").Range("A" & Rows.Count).End(x1UP).Row
    For y = 5 To x
    If Sheets("feuille matricule").Cells(y, 1).Value = TxtChercher.Text Then
    TxtNom = Sheets("feuille matricule").Cells(y, 2).Value
    TxtPrenom = Sheets("feuille matricule").Cells(y, 3).Value

    End If
    Next y

Pourriez-vous m'aider à résoudre ce mystère svp?

Je joins mon fichier, des fois que vous y voyez plus clair.

Merci pour votre solidarité!

Bonjour,

Sans ouvrir, juste ce code :

.End(x1UP).Row

ça ne serait pas plutôt :

.End(xlUP).Row

un "l" à la place du 1?

Un tout grand merci Cousinhub pour ta correction. C'est résolu.