Plusieurs recherche sur une listbox

Bonjour,

J'ai actuellement une Listbox qui m'affiche des informations d'articles liée à Textbox1 (pour la recherche de base) pour rechercher uniquement par l'intitulé de l'article.

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 
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Offset(, 1) 
'            ListBox1.List(ListBox1.ListCount - 1, 2) = .Offset(, 2) 

          End If
        End If
      End With
    Next Ligne
  End With
End Sub

J'aimerais modifier mon code (sans savoir comment ...) pour recherche via plusieurs Textbox...
Textbox1 pour les intitulés
Textbox2 pour les fournisseurs
Textbox3 pour les groupes



merci pour votre aide :)