XL 2016 pb recherche intuitive dans textbox / listbox

Private Sub TextBox1_Change()    'methode add item
    Dim i&
    ListBox1.Clear
    If TextBox1 = "" Then
        'bien que la boucle remet d'elle meme le tableau en entier si le textbox est vide
        'pas la peine de la faire mouliner
        ListBox1.List = tableau
    Else
        For i = 1 To UBound(tbl)
            'option de recherche
            'If tbl(i) Like "*|" & TextBox1.Value & "*|" Then    'on cherche dans tbl (option :COMMENCE PAR )
            If tbl(i) Like "|*" & TextBox1.Value & "*|" Then    'on cherche dans tbl (option:CONTIENT)

                With ListBox1: .AddItem: For c = 1 To UBound(tableau, 2): .List(.ListCount - 1, c - 1) = tableau(i, c): Next: End With
            End If
        Next
    End If
End Sub

Private Sub TextBox1_Change()    'methode compose new tbl(tbl2)
    Dim tbl2(), a&, i&, ic&
    ListBox1.Clear
    If TextBox1 = "" Then
        'bien que la boucle remet d'elle meme le tableau en entier si le textbox est vide
        'pas la peine de la faire mouliner
        ListBox1.List = tableau
    Else
        For i = 1 To UBound(tbl)
            'option de recherche
            If tbl(i) Like "*|" & TextBox1.Value & "*|" Then    'on cherche dans tbl (option :COMMENCE PAR )
                'If tbl(i) Like "|*" & TextBox2.Value & "*|" Then    'on cherche dans tbl (option:CONTIENT)

                a = a + 1: ReDim Preserve tbl2(1 To UBound(tableau, 2), 1 To a)
                For ic = 1 To UBound(tbl2): tbl2(ic, a) = tableau(i, ic): Next
                ListBox1.Column = tbl2

                'With ListBox1: .AddItem: For c = 1 To UBound(tableau, 2): .List(.ListCount - 1, c - 1) = tableau(i, c): Next: End With
            End If
        Next
    End If
End Sub

Private Sub UserForm_Activate()
    Dim i&

    tableau = Sheets(1).Range("A2:E" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim tbl(1 To UBound(tableau))
    ListBox1.List = tableau
    ListBox1.ColumnCount = UBound(tableau, 2)
    For i = 1 To UBound(tableau)
        tbl(i) = "|" & Join(Application.Index(tableau, i, 0), "|") & "|"     'on join la ligne du tableau dans la ligne i de tbl
        tableau(i, 5) = i + 1    'on ajoute le numero de ligne en derniere colonne
        DoEvents    'pour ne pas attendre la fin de concstruction de tbl pour l'affichage complet de la liste
    Next
End Sub