ListBox Recherche avec plusieurs paramètres

Private Sub UserForm_Initialize()
Dim cel As Range
'modif 14/01/2010
Secteur
'etait en fin de su d'ou mavar=vide
''''''''''''''''''''''
mavar = Label1 & Label2 & Label3 & Label4 & Label5 & Label6 & Label7 & Label8

ListBox2.Clear

With Me.ListBox2 'prend en compte la ListBox1
    .ColumnCount = 6 'attribut le nombre de colonnes
    .ColumnWidths = "90;120;90;70;100;120" 'définit la largeur des colonne (la 3ème ne sera pas affichée)
End With 'fin de la prise en compte de la ListBox1
 
With Sheets("bdd vendeurs") 'prend en compte l'onglet "Data"
    For Each cel In .Range("X4:X" & .Range("X65536").End(xlUp).Row) 'boucle sur toute les cellules éditée de la colonne AL
         'modif 14/01/2010
         'If cel.Value = mavar Then
         If InStr(mavar, cel.Value) <> 0 Then
         ' mavar ne peut pas etre= cel.value
         'on error parceque certaines valeurs a ecrire = #VALEUR
         On Error Resume Next
            Me.ListBox2.AddItem cel.Offset(0, -13).Value 'ajoute à la ListBox1 la donnée en colonne B (colonne 0 de la listbox)
            Me.ListBox2.Column(1, ListBox2.ListCount - 1) = cel.Offset(0, -23).Value 'ajoute à la ListBox1 la donnée de la colonne D (colonne 1 de la listBox)
            Me.ListBox2.Column(2, ListBox2.ListCount - 1) = cel.Offset(0, -21).Value
            Me.ListBox2.Column(3, ListBox2.ListCount - 1) = cel.Offset(0, -2).Value
            Me.ListBox2.Column(4, ListBox2.ListCount - 1) = cel.Offset(0, 32).Value
            Me.ListBox2.Column(5, ListBox2.ListCount - 1) = cel.Offset(0, 0).Value
            Me.ListBox2.Column(6, ListBox2.ListCount - 1) = cel.Row
          On Error GoTo 0
        Else
        End If 'fin de la condition
    Next cel
   
    
End With
Me.Height = Application.Height: Me.Width = Application.Width
End Sub