Recherche ListBox & Renvoi vers TextBox

Private Sub ListBox1_Click()
Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      Me.TextBox2.Value = ListBox1.List(i, 1)
      Me.TextBox3.Value = Format(ListBox1.List(i, 2), "00000")
      Me.TextBox4.Value = ListBox1.List(i, 3)
    End If
    Next
End Sub

Private Sub TextBox1_Change()
Dim i As Long
  For i = ListBox1.ListCount - 1 To 0 Step -1
    If Left(ListBox1.List(i, 0), Len(TextBox1)) <> TextBox1.Value Then
      ListBox1.RemoveItem (i)
    End If
  Next
End Sub

Private Sub TextBox1_AfterUpdate()
Dim TabloSource, Entree, TabloLigne(), i&, j&, k&, Quoi$, i2&

For k = 2 To 4: Me.Controls("TextBox" & k) = "": Next k
UserForm1.ListBox1.Clear
TabloSource = Sheets("BD").Range("A1:D1000").CurrentRegion.Value
k = 0: Quoi = TextBox1: i2 = UBound(TabloSource)

For i = 2 To i2
    If TabloSource(i, 1) Like TextBox1 Then
      k = k + 1
      ReDim Preserve TabloLigne(1 To 4, 1 To k)
      For j = 1 To 4
        TabloLigne(j, k) = TabloSource(i, j)
      Next j
    End If
Next i

If k = 1 Then
  ListBox1.AddItem TabloLigne(1, 1)
  For i = 2 To 4
    ListBox1.List(0, i - 1) = TabloLigne(i, 1)
  Next i
ElseIf k > 1 Then
  ListBox1.List = Application.Transpose(TabloLigne)
End If

End Sub

Private Sub TextBox1_Change()
plage = Sheets("BD").Range("A2:D" & Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row)
ListBox1.Clear
For n = LBound(plage, 1) To UBound(plage, 1)
  If TextBox1 = Left(plage(n, 1), Len(TextBox1)) Then
    ListBox1.AddItem plage(n, 1)
    ListBox1.List(ListBox1.ListCount - 1, 1) = plage(n, 2)
    ListBox1.List(ListBox1.ListCount - 1, 2) = plage(n, 3)
    ListBox1.List(ListBox1.ListCount - 1, 3) = plage(n, 4)
  End If
Next
End Sub

TabloSource = Sheets("BD").Range("A1").CurrentRegion.Value