Bonjour,
Une proposition à tester et à adapter.
1 seul tableau (structuré) dans la feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tbl As ListObject, n As Long
If Not Target.ListObject Is Nothing Then
Cancel = True
Set tbl = Target.ListObject
n = Target.Row - tbl.HeaderRowRange.Row
If n > 1 Then tbl.ListRows(n).Delete
End If
End Sub
Cdlt.