XL 2019 Affichage plusieurs colonne dans Listbox avec tri Combobox

Sub RecupTabGen()
  If Not Range("t_BDD").ListObject.DataBodyRange Is Nothing Then
    With Range("t_BDD").ListObject.DataBodyRange
 Tabtemp = .Resize(.Rows.Count, .Columns.Count + 1).Value 'on remplit le tableau temporaire avec les données de la plage ainsi déterminée
    End With
  End If
' End With
       Tabtemp = IndexTablo(Tabtemp)  'on envoie le tableau pour indexation n° de ligne et x pour valider au départ l'ensemble des lignes
      'ci dessous on remplit le tableau avec les données qui vont servir au chargement des Combobox et à la coloration du texte des différentes colonnes de la ListView
         TabStrSearch(1, 1) = "*": TabStrSearch(1, 2) = "<< TOUTES >>":   TabStrSearch(1, 3) = ""     ' Colonne  1
         TabStrSearch(2, 1) = "*": TabStrSearch(2, 2) = "<< TOUS >>":     TabStrSearch(2, 3) = ""       ' Colonne  2
         TabStrSearch(3, 1) = "*": TabStrSearch(3, 2) = "<< TOUTES >>":   TabStrSearch(3, 3) = ""     ' Colonne  3
End Sub

Private Sub CommandButton1_Click()
   t = Array("dimensions", "poids")
   With ListBox1
   .ColumnCount = UBound(t) + 1
   .List = GetTabLo_RangeNoContigue("Tableau1", t)
End With
End Sub

Private Sub CommandButton1_Click()
   t = Array("dimensions", "poids")
   With ListBox1
   .ColumnCount = UBound(t) + 1
   .List = GetTabLo_RangeNoContigue("Tableau1", t) ' on injecte le nom du TS et l'array des nom de colonnes du TS
End With
End Sub

Function GetTabLo_RangeNoContigue(TabloName As String, arrColName)
'fonction perso patricktoulon
Dim Titre, I&, X&
'on recupere la ligne des titre du tableau structuré (le header)dans un array 1 dim
    Titre = Application.Index(Range(TabloName & "[#all]").Value, 1, 0)
    For I = 0 To UBound(arrColName) 'on boucle sur les noms de l'arrcolname
        X = Application.IfError(Application.Match(arrColName(I), Titre, 0), 0) 'on fait un match pour chercher la valeur
        If X > 0 Then arrColName(I) = X ' si match on remplace le nom par son index dans l'array lui meme
    Next
' donc l'array arrcolname devient un array de chiffre
'il nous reste plus qu'a  créer une variable tablo  avec ces colonne grace à index  et evaluate
'ici en l'ocurence on met tout de suite le resultat dans le return de la fonction
GetTabLo_RangeNoContigue = Application.Index(Range(TabloName), Evaluate("Row(1:" & Range(TabloName).Rows.Count & ")"), arrColName)
End Function