Voici un truc que j'ai créé pour retrouver plus vite une données parmi plus de mille
For ligne = 2 To derligne ' je lis toutes les données stockées dans la feuille "Secteur"
If Sheets("Secteur ").Cells(ligne, 5).Value Like Tbox_famille & "*" Then
ListBox_famille.AddItem Sheets("Secteur ").Cells(ligne, 5).Value
End If
Next ligne
End If
Cette procédure est inscrite dans un textBox (Tbox_famille). Son but est, dès que je tape une lettre dans ce textbox, toutes les données commençant par cette lettre s'inscriront dans la listBox "ListBox_famille", si je tape une deuxième lettre dans la textBox (exemple T en premier et A en second) seules les données commençant par "TA" apparaîtront, etc ...
Bon courage