XL 2013 Tri sur listbox par textbox

Option Explicit

Option Compare Text
Dim f, Tbl
Private Sub UserForm_Initialize()
Tbl = Range("t_BDD").ListObject.DataBodyRange.Resize(, 4).Value
'ou
'Tbl = Range("t_BDD").Resize(, 4).Value
  Me.ListBox1.List = Tbl
End Sub

Private Sub TextBox1_Change()
Dim n As Integer, i As Integer, clé
 Me.ListBox1.Clear
 n = 0
 clé = Me.TextBox1 & "*"
 For i = 1 To UBound(Tbl)
   If Tbl(i, 2) Like clé Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(n, 0) = Tbl(i, 1)
      Me.ListBox1.List(n, 1) = Tbl(i, 2)
      Me.ListBox1.List(n, 2) = Tbl(i, 3)
      Me.ListBox1.List(n, 3) = Tbl(i, 4)
      n = n + 1
   End If
 Next i
End Sub

Sub reliste(LO As ListObject, lst)
    Dim i&
    With LO.DataBodyRange 'Avec le dataBodyRange du Tableau
                .Sort key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes 'je trie               
              tablo = .Resize(, .Columns.Count + 1).Value: Set LTO = LO: End With 'On récupére les Données dde la palge ainsi définie'
    For i = 1 To UBound(tablo): tablo(i, UBound(tablo, 2)) = i: Next 'On récupére l'index des Lignes          
           lst.List = tablo 'On colle le tableau dans la ListBox          
    For i = lst.ListCount - 1 To 0 Step -1 'On recherche d'eventuelles Lignes vides
        If lst.List(i, 0) = "" Then lst.RemoveItem (i) 'Pour les supprimer'
    Next
End Sub

Dim tablo
Dim LTO As ListObject
'**********************************************************
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Listefiltrée ListBox1, TextBox1.Value, 1
End Sub
'**********************************************************
Private Sub UserForm_Activate()
    reliste Range("Bdd").ListObject, ListBox1
End Sub
'**********************************************************
Sub reliste(LO As ListObject, lst)
    Dim i&
    With LO.DataBodyRange
                .Sort key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes         
              tablo = .Resize(, .Columns.Count + 1).Value: Set LTO = LO: End With
    For i = 1 To UBound(tablo): tablo(i, UBound(tablo, 2)) = i: Next     
           lst.List = tablo     
    For i = lst.ListCount - 1 To 0 Step -1
        If lst.List(i, 0) = "" Then lst.RemoveItem (i)
    Next
End Sub
'**********************************************************
Sub Listefiltrée(Lbox, valeur, Optional col& = -1)
    Dim tbl(), a&, i&, c&
    If col = -1 Then col = LBound(tablo, 2)
    For i = LBound(tablo) To UBound(tablo)
        If LCase(tablo(i, col)) Like LCase(valeur) & "*" Then
            a = a + 1: ReDim Preserve tbl(LBound(tablo, 2) To UBound(tablo, 2), 1 To a):
            For c = LBound(tablo, 2) To UBound(tablo, 2): tbl(c, a) = tablo(i, c): Next
        End If
    Next

    If a = 0 Or valeur = "" Then
        '*******************************
        'Fonctionnement au choix pour la non correspondance
        'Lbox.Clear: Exit Sub   ' aucune correspondence la liste est vide
        'ou
        reliste LTO, Lbox       ' aucune correspondance alors tout
        '********************************
    Else
        tbl = Application.Transpose(tbl)
        If a > 1 Then Lbox.List = tbl Else If a > 0 Then Lbox.Column = tbl
    End If
End Sub

Sub reliste(LO As ListObject, lst)
    Dim i&
    With LO.DataBodyRange: tablo = .Resize(.Rows.Count + 2, .Columns.Count + 1).Value: Set LTO = LO: End With
    For i = 1 To UBound(tablo): tablo(i, UBound(tablo, 2)) = i: Next
    lst.List = tablo
    For i = lst.ListCount - 1 To 0 Step -1
        If lst.List(i, 0) = "" Then lst.RemoveItem (i)
    Next
End Sub

ListBox1.ColumnCount =6
'et
ListBox1.ColumnWidths="120;0;0;60;60;60

tablo = .Resize(.Rows.Count + 2

For i = lst.ListCount - 1 To 0 Step -1
If lst.List(i, 0) = "" Then lst.RemoveItem (i)
Next