Moteur de recherche VBA dans excel

Bonjour,
Voilà, j'ai trouvé ce petit code que j'ai réadapté à mon appli (qui fonctionne très bien d'ailleurs), :

[ Sub rechercher()
a = InputBox("Entrer un NOM", "RECHERCHE")
If a = "" Then Exit Sub
Dim Ligne As Long
On Error GoTo erreur
Ligne = Sheets("REP").Columns(5).Find(a, , , xlWhole, xlByColumns, xlPrevious).Row
Sheets("REP").Select
Rows(Ligne).Select
Exit Sub
erreur:
MsgBox ("Pas connu")
End Sub]

le seul problème, c'est que je suis obligé d'être précis dans ma recherche...
Est-ce que quelqu'un à une idée pour remodeler un peu ce code afin qu'il me sélectionne toutes les lignes comprenant une partie de mon champs de recherches... pour DUPONT par exemple, si je tapes "DUP"... qu'il me sélectionne toutes les lignes ou il trouves des noms avec DUP....

et puis-je faire appaître mes éléments de recherche dans une "listbox" ?

Merci d'avance.
Cordialement.