Recherche sur Base de Donnée Excel

Dim Trouve As Range
Dim Valeur_trouvee As String
Dim Lign As Long

If ComboBox13 = "" Then Exit Sub
With Sheets("Feuil1")
    Set Trouve = .Columns(2).Cells.Find(ComboBox13)
        If Trouve Is Nothing Then
            MsgBox ComboBox13 & " pas trouvée!"
        Else
            Valeur_trouvee = Trouve.Address
            Lign = Trouve.Row
            MsgBox ComboBox13 & " trouvée dans la cellule : " & Valeur_trouvee & " ligne : " & Lign
        End If
End With
Set Trouve = Nothing

Private Sub CommandButton1_Click()
'au clic sur le bouton, recherche :
    'dans la colonne B du contenu de la liste 1
    'test si contenu de C = liste2
Dim TablDonnees(), Valeur(5), i As Long, j As Long, drlig As Long, Cpt As Byte

'comptage du nombre de critères renseignés :
For i = 1 To 6
    If Me.Controls("ComboBox" & i).Value <> "" Then
        Cpt = Cpt + 1
    End If
Next
'Si le nombre de critères renseignés est inférieur à 3,
'message à l'utilisateur et ... on ne fait rien!
If Cpt < 3 Then
    MsgBox "Merci de renseigner plus de " & Cpt & " critères"
    Exit Sub
End If
'Valeur(5) est une variable tableau qui permet de stocker 6 noms,
'(6 car on commence à l'indice 0, Valeur(0), et on finit à 5, Valeur(5), soit 6 éléments)
'le contenu donc de nos 6 combobox
    'la boucle qui suit est en fait équivalente à :
        'Valeur(0) = ComboBox1
        'Valeur(1) = ComboBox2
        'Valeur(2) = ComboBox3
        'Valeur(3) = ComboBox4
        'Valeur(4) = ComboBox5
        'Valeur(5) = ComboBox6
'--- Remplissage de la variable Valeur(i) :
For i = 0 To 5
    Valeur(i) = Me.Controls("ComboBox" & i + 1).Value
Next

With Sheets("Feuil1")
    drlig = .Range("A" & Rows.Count).End(xlUp).Row
    ReDim TablDonnees(1 To 6, 1 To drlig - 1)
    '--- Remplissage de la variable TablDonnees() :
    For i = 2 To drlig
        '1ère ligne du tableau = colonne A de la feuille
        TablDonnees(1, i - 1) = .Cells(i, 1).Value
        '2ème  ligne du tableau = colonne B de la feuille
        TablDonnees(2, i - 1) = .Cells(i, 2).Value
        '3ème  ligne du tableau = colonne C de la feuille
        TablDonnees(3, i - 1) = .Cells(i, 3).Value
        '4ème  ligne du tableau = colonne D de la feuille
        TablDonnees(4, i - 1) = .Cells(i, 4).Value
        '5ème  ligne du tableau = colonne E de la feuille
        TablDonnees(5, i - 1) = .Cells(i, 5).Value
        '6ème  ligne du tableau = colonne G de la feuille
        TablDonnees(6, i - 1) = .Cells(i, 7).Value
    Next
    'explications :
        'TablDonnees = Application.Transpose(.Range("A2:G" & drlig).Value)
        'va remplir une variable tableau multidimensionnelle, de sorte que :
        'TablDonnees(1, 1) = Range("A2"), TablDonnees(2, 1) = Range("B2"),
        'TablDonnees(3, 1) = Range("C2"), TablDonnees(4, 2) = Range("D3")
        'TablDonnees(6, i) = Range("G" & i) ou i = variable n° de ligne
End With
'Si un ou plusieurs critères ne sont pas souhaités, et donc pas choisis dans les combobox
'la comparaison entre la concaténation des Valeur et celle des TablDonnees
'renverra toujours FAUX, il faut donc, Si valeur = rien que le tabldonnees de la colonne
'correspondante soient tous = à rien :
For i = 0 To 5
    If Valeur(i) = "" Then
        For j = 1 To drlig - 1
            TablDonnees(i + 1, j) = ""
        Next
    End If
Next
'il convient de comparer maintenant, la concaténation de nos variables Valeur
'et la concaténation des "colonnes" de notre variable tableau
'si les concaténations sont identiques, nous avons trouvé la bonne ligne
'cette ligne est en fait l'indice i de notre variable tableau, + 1 car on commence en 2ème ligne (A2...)
For i = 1 To drlig - 1
    If TablDonnees(1, i) & TablDonnees(2, i) & TablDonnees(3, i) & TablDonnees(4, i) & TablDonnees(5, i) & TablDonnees(6, i) = Join(Valeur, "") Then
        MsgBox "trouvé ligne : " & i + 1
        Exit Sub
    End If
Next
MsgBox "pas trouvé"
End Sub