Champ de recherche VBA

Bonjour à tous,

J'utilise le code VBA mis à disposition par Sébastien : "creer-un-champ-de-recherche-vba"

Je l’ai modifié un peu pour faire apparaitre dans la listbox le contenu de la cellule 3 qui contient un lien hypertexte :

If TextBox1 «  » Then
For ligne = 2 To 999
If Cells(ligne, 1) Like « * » & TextBox1 & « * » Then
Cells(ligne, 1).Interior.ColorIndex = 2
ListBox1.AddItem Cells(ligne, 3)

Cependant, le résultat est en texte et le lien hypertext a disparu.

Je ne connais pas grand chose, si ce n'est rien du tout, en programmation VBA.

Pourriez-vous m'aider SVP.

Merci .

PS : ci joint le fichier en question.