Bonjour à tous!

Je souhaite "animer" une base de données de plusieurs centaines d'onglets (1 pour chaque article de mon catalogue) via un formulaire de recherche.

J'imagine une recherche intuitive d'une textbox qui afficherait de manière dynamique les noms des onglets correspondant à ma recherche dans une list ou combobox - indéfféramment de la casse si possible.

Pour le moment je n'ai réussi qu'à lister l'ensemble des noms d'onglets dans une listbox (si aucune saisie), mais ne parviens qu'à faire une recherche sur le premier mot composant les noms des onglets, et encore la casse devant être respectée !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Change()
 
Dim i As Integer
  UserForm1.ListBox1.Clear ' vider la listbox
  For i = 1 To Worksheets.Count 'pour chaque feuille
    'If Sheets(i).Name <> "References 2019" Then
    If Sheets(i).Name Like TextBox1.Text & "*" Then
      UserForm1.ListBox1.AddItem Worksheets(i).Name ' ajouter son nom à la listbox
    End If
  Next i
End Sub
Que pourriez vous me suggérer ?

Merci!