Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Derniere Ligne)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter a ton cas)
DL = O.ListObjects("Tableau1").ListRows.Count 'définit la derniere ligne du Tableau1
O.ListObjects("Tableau1").ListRows.Item(DL).Delete 'suprimme la dernière ligne du Tableau1
End Sub