Supprimer la dernière ligne des deux tableau dans deux feuilles

Bonsoire

j'au deux feuilles dans un classeurs excel avec Multiples tableaux , mais chaque tableau dans une feuille est liée directement avec un tableau dans la deuxièmement feuille

alors, dans mon fichier , jais un exemple de deux tableau dans chaque feuille

je veux que ;

le bouton "CommandButton1" proceder à la suppression de la dernière ligne des deux Tableau1 (Feuille AB) 'et Tableau2 (Feuille AC) en même temps

le bouton "CommandButton2" proceder à la suppression de la dernière ligne des deux Tableau3 (Feuille AB) 'et Tableau4 (Feuille AC) en même temps

et ainsi de suite

Merci

Bonjour

Ci joint ma solution

A+ François

Bonjour,
Une autre proposition VBA.
Cdlt.

Option Explicit

Dim lo As ListObject, lo2 As ListObject

'Tables 1 & 2
Private Sub cmdDelete_1_Click()
    Set lo = Worksheets("AB").ListObjects("Tableau1")
    Set lo2 = Worksheets("AC").ListObjects("Tableau2")
    If lo.InsertRowRange Is Nothing Then lo.ListRows(lo.DataBodyRange.Rows.Count).Delete
    If lo2.InsertRowRange Is Nothing Then lo2.ListRows(lo2.DataBodyRange.Rows.Count).Delete
End Sub

'Tables 3 & 4
Private Sub cmdDelete_2_Click()
    Set lo = Worksheets("AB").ListObjects("Tableau3")
    Set lo2 = Worksheets("AC").ListObjects("Tableau4")
    If lo.InsertRowRange Is Nothing Then lo.ListRows(lo.DataBodyRange.Rows.Count).Delete
    If lo2.InsertRowRange Is Nothing Then lo2.ListRows(lo2.DataBodyRange.Rows.Count).Delete
End Sub

bonjour,

presque parreil à Jean-Eric

'Tables 3 & 4
Private Sub cmdDelete_2_Click()
     With Sheets("AB").ListObjects("tableau3")
           If .ListRows.Count Then .ListRows(.ListRows.Count).Delete
     End With

     With Sheets("AC").ListObjects("tableau4")
          If .ListRows.Count Then .ListRows(.ListRows.Count).Delete
     End With
End Sub

Bonjour pour tout le monde

oui les deux codes sa marche très bien comme il faut

Merci pour vous mes Amis