remplissage textbox

Private Sub ListBox1_Click()
  Ligne = ListBox1.ListIndex
  For Each i In Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12)
      Me("textbox" & i) = ListBox1.List(Ligne, i - 1)
  Next i
  TextBox1 = "CTL-" & TextBox1                 ' ajoute CTL- devant le numéro du client
  Me.ComboBox2 = ListBox1.List(Ligne, 5)
   Me.ComboBox3 = ListBox1.List(Ligne, 12)
  reservation = Me.TextBox1
  reservation = Right(reservation, Len(reservation) - 4)  ' Soustrait CTL- de réservation pour la recherche 
  Set result = f.[A:A].Find(what:=reservation)
  If Not result Is Nothing Then
    LigneEnreg = result.Row
    Me.LigneEnregC = LigneEnreg
  Else
    MsgBox "Erreur no réservation"
  End If
End Sub