Multi recherche d'une Listbox

Bonsoir,

J'ai une Listbox qui m'affiche des informations d'articles liée à Textbox1 (pour la recherche de base)

Private Sub TextBox1_Change()
  Dim DerLigne&, Ligne&
  ListBox1.Clear
  With Worksheets("Tarification")
    DerLigne = .Cells(Rows.Count, 2).End(xlUp).Row
    For Ligne = DerLigne To 4 Step -1
      With .Cells(Ligne, 2)
        If .Value <> 0 Then
          If InStr(LCase$(.Value), LCase$(TextBox1)) > 0 Then
            ListBox1.AddItem                                          '      colonne
            ListBox1.List(ListBox1.ListCount - 1, 0) = .Value         'Nom         B
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Offset(, 1)   'Prénom      C
'            ListBox1.List(ListBox1.ListCount - 1, 2) = .Offset(, 2)   'Société     D
'            ListBox1.List(ListBox1.ListCount - 1, 3) = .Offset(, 3)   'Adresse     E
'            ListBox1.List(ListBox1.ListCount - 1, 4) = .Offset(, 4)   'C.P         F
'            ListBox1.List(ListBox1.ListCount - 1, 5) = .Offset(, 5)   'Ville       G
'            ListBox1.List(ListBox1.ListCount - 1, 6) = .Offset(, 6)   'Tél         H
'            ListBox1.List(ListBox1.ListCount - 1, 7) = .Offset(, 7)   'Mail        I
'            ListBox1.List(ListBox1.ListCount - 1, 8) = .Offset(, 8)   'Num T.V.A   J
          End If
        End If
      End With
    Next Ligne
  End With
End Sub

J'aimerais compléter cette recherche par "catégories" selon le choix que je fait dans une liste déroulante (ComboBox1)

Donc en clair :

Pour le moment dans ma Listbox il m'affiche tous mes produits mélangés.

J'aimerais via la combobox1 si je choisis dans la liste déroulante par exemple "bois"

que ma listbox affiche uniquement les articles dans la catégorie "bois"

Sur ma feuille en colonne B : le nom des catégorie de chaque articles

En colonne C : le nom de l'article...

Avez vous une solution ?

??? Personnes ???