Alimenter une listbox userform à partir de plusieurs feuilles

[fb62840]

Bonjour à toutes et tous,

Voici ci-dessous comment (avec l'aide de ressources développées par d'autres utilisateurs) je suis parvenu à alimenter une Listbox.

Mon problème est le suivant :
EN plus d'alimenter la listbox avec les données contenues dans la Feuil1, j'aimerai ajouter à la suite des colonnes insérées dans la listbox des données qui se trouvent sur une autre feuille (sur cette feuille, le moyen d'identifier les données à collecter est l'identifiant que l'on retrouve sur celle-ci et sur la Feuil1).

Merci beaucoup pour votre aide.

With Feuil1
        y = 1
        fin = .Range("A" & Rows.Count).End(xlUp).row
        aa = .Range("A2:W" & fin)

    End With
    For i = 1 To UBound(aa)
        aa(i, 5) = i + 1
    Next i
    For i = 1 To UBound(aa)
        For a = 1 To UBound(aa, 2)
            If aa(i, a) Like "*" & Tnomrecherche & "*" Then aa(i, 6) = "oui": y = y + 1: Exit For
        Next a
    Next i
    If y = 1 Then Exit Sub
    If y = 1 Then
        For i = 1 To UBound(aa)
            If aa(i, 6) = "oui" Then
                ListBox1.AddItem aa(i, 1)
                For a = 1 To UBound(aa, 2) - 2
                    ListBox1.List(ListBox1.ListCount - 1, a - 1) = aa(i, a)
                    Controls(Tnomrecherche) = aa(i, a)
                Next a
                mem = 1: Exit For
            End If
        Next i
    Else
        ReDim bb(y - 1, UBound(aa, 2) - 1)
        y = 1
        For i = 1 To UBound(aa)
            If aa(i, 6) = "oui" Then
                For a = 1 To UBound(aa, 2) - 1
                    bb(y, a) = aa(i, a)
                Next a
                y = y + 1
            End If
        Next i
    End If
    With ListBox1
        .ColumnCount = 22
        .ColumnWidths = "20;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40"
        If mem Then Exit Sub
        .List = bb
    End With