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

Private Sub CommandButton1_Click()
    If TextBox1 = "" Then Exit Sub
   [Tableau1[VILLES]].End(xlDown)(2) = TextBox1:   [Tableau1[KM]].End(xlDown)(2) = TextBox2
   Unload Me
End Sub

Private Sub CommandButton1_Click()
Dim r As Range
    With Worksheets("Feuil1").ListObjects("Tableau1")
        If .InsertRowRange Is Nothing Then
            'le tableau comporte des donn?es
            Set r = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1)
        Else
            'le tableau est vide
            Set r = .InsertRowRange.Cells(1)
        End If
        With r
            .Value = TextBox1
            .Offset(, 1).Value = CDbl(TextBox2)
        End With
    End With
    Unload Me
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Cancel = TextBox1 = ""
  If TextBox1 = "" Then Exit Sub
  If [Tableau1[VILLES]].Find(TextBox1, LookAt:=1) Is Nothing Then Exit Sub
  MsgBox " ville déjà présente !", 16, "Saisie invalidée ..."
  TextBox1 = "": Cancel = 1
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsNumeric(TextBox2) Then TextBox2 = ""
  Cancel = Not IsNumeric(TextBox2)
End Sub

Private Sub CommandButton1_Click()
  Dim C As Range, L as long
  With [Tableau1]
  L = IIf(.Item(1, 1) = "", 1, .Rows.Count + 1): Set C = .Item(L, 1)
  End With
  C(1, 1) = TextBox1: C(1, 2) = CDbl(TextBox2)
  Unload Me
End Sub

Private Sub CommandButton1_Click() 
If Len(TextBox1) And Len(TextBox2) Then 
With [Tableau1] 
.ListObject.ListRows.Add.Range.Item(1).Resize(, 3) = Array(TextBox1, vbNullString, TextBox2) 
End With 
End If 
Unload Me 
End Sub

Private Sub CommandButton1_Click()
  If Len(TextBox1) * Len(TextBox2) Then _
      [Tableau1].ListObject.ListRows.Add.Range.Item(1).Resize(, 3) = Array(TextBox1, vbNullString, TextBox2)
  Unload Me
End Sub

Private Sub CommandButton1_Click()
[Tableau1].ListObject.ListRows.Add.Range.Item(1).Resize(, 3) = Array(TextBox1, vbNullString, TextBox2): Unload Me
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) = 0 Then
MsgBox "Veuillez remplir le " & TextBox1.Name & ", svp.", vbCritical, "Erreur!"
Cancel = -1: TextBox1.SetFocus
End If
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox2) = 0 Then
MsgBox "Veuillez remplir le " & TextBox2.Name & ", svp.", vbCritical, "Erreur!"
Cancel = -1: TextBox2.SetFocus
End If
End Sub

Private Sub CommandButton1_Click()
  Dim L As Long
  With [Tableau1]
    L = .Rows.Count + 1
    .Item(L, 1) = TextBox1
    .Item(L, 2) = CDbl(TextBox2)
  End With
  Unload Me
End Sub

.Item(L, 1) = TextBox1

.Item(L, [Tableau1[VILLES]]) = TextBox1