VBA: Ajouter une ligne en fin de tableau en reprenant certaines données de la dernière ligne

lr.Range.Cells(1, 1).Select

Private Sub CommandButton1_Click()

'insertion du nouvelle ville
If Not TextBox_ajout_vehicule = "" Then

    With Sheets("Feuil1").ListObjects("Tableau1")
        .ListRows.Add AlwaysInsert:=True
        .ListColumns("Tableau1").DataBodyRange(.ListRows.Count) = TextBox1.Value 'c'est ici que je dois me tromper ?
    End With

End If

'fermer la fenêtre et vider les données mémoires
Unload Me

End Sub

Option Explicit

Dim lo As ListObject

Private Sub UserForm_Initialize()
    Set lo = Worksheets("Feuil1").ListObjects(1)
End Sub

Private Sub CommandButton1_Click()
Dim lr As ListRow
    If Me.TextBox1.Value = "" Then GoTo exit_Handler
    Set lr = lo.ListRows.Add
    lr.Range.Cells(1, 1).Value = Me.TextBox1.Value
exit_Handler:
    Unload Me
End Sub

    Set lo = Worksheets("Feuil1").ListObjects(1)

Set ListRow = Worksheets("Feuil1").ListObjects(1).ListRows.Add

Set ListRow = Worksheets("Feuil1").ListObjects(Tableau1).ListRows.Add

[Tbo].Item([Tbo].Rows.Count + 1, 1) = "Truc"

Private Sub CommandButton1_Click()

With Sheets("Feuil1").ListObjects("Tableau1")
            'ajout d'une ligne vierge à la fin du tableau
           .ListRows.Add
            'indice dans la feuille, de la ligne correspondant à la première cellule vide du premier champ du tableau
           i = .ListColumns("VILLES").Range.Find("", SearchDirection:=xlNext).Row
            'indice relatif dans l'objet tableau1, de la ligne correspondant à la première cellule vide du premier champ du tableau
           i = i - .HeaderRowRange.Row
            'remplissage ligne
           .ListColumns("VILLES").DataBodyRange.Rows(i).Value = TextBox1.Value   'le génie est là ! ^^
           .ListColumns("KM").DataBodyRange.Rows(i).Value = TextBox2.Value
       End With

'fermer la fenêtre et vider la mémoire
    Unload Me

End Sub