Recherche dans listbox

Bonjour,

Bon a force de chercher et de trouver plein de truc quine fonctionne pas, je me tourne vers vous.

Je voudrai faire une recherche dans une listbox a partir d'une textbox.
Je m'explique, je tape un mot dans la textbox et j'ai toute la ligne qui fait réference à ce mot qui apparait dans la listbox (une ligne de 6 colonnes), car lorsque j'ouvre mon userform toute ma Base de donnée s'affiche dans la listbox et je voudrai faire le tri a partir du mot.

Je ne sais pas si cela est claire mais bon.

Si cela peut vous mettres sur une piste voici ma macro au lancement de l'userform:

Private Sub UserForm_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("BASE DE DONNEE").Range("C1000").End(xlUp).Row
For x = 2 To i
With ListBox1
.AddItem Sheets("BASE DE DONNEE").Cells(x, 2)
.Column(1, .ListCount - 1) = Sheets("base de donnee").Cells(x, 3)
.Column(2, .ListCount - 1) = Sheets("base de donnee").Cells(x, 4)
.Column(3, .ListCount - 1) = Sheets("base de donnee").Cells(x, 5)
.Column(4, .ListCount - 1) = Sheets("base de donnee").Cells(x, 6)
.Column(5, .ListCount - 1) = Sheets("base de donnee").Cells(x, 7)

End With
Next x
End Sub


Merci les gens!!