Supprimer ligne

Bonsoir à tous je voudrais demender un code vba pour supprimer et l'enregistrement et la ligne en même temps à l'aide d'un bouton commande

Bonjour,

- - - Un fichier EXCEL (test ou non), complété par des explications exhaustives et des exemples remplis à la main (si besoin), mis sur le forum, permettrait aux intervenants de répondre plus précisément à ta question.

Crdlmt

bonjour DAMIS,

Private Sub CommandButton1_Click()
     Dim LO    As ListObject

     With ActiveCell

          On Error Resume Next
          Set LO = .ListObject
          On Error GoTo 0

          If LO Is Nothing Then MsgBox "vous n'êtes pas dans le tableau": Exit Sub
          If LO.Name <> "Tableau2" Then MsgBox "ce n'est pas " & Chr(34) & "tableau2" & Chr(34): Exit Sub
          If Intersect(LO.DataBodyRange, .Offset(0)) Is Nothing Then MsgBox "vous n'êtes pas dans le body du tableau": Exit Sub

          LO.ListRows(.Row - LO.Range.Row).Delete
     End With

End Sub

THANK YOU VERY MUCH