Copie tableaux

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.ListObjects.Count = 0 Then Exit Sub
If Intersect(Target, Sh.ListObjects(1).DataBodyRange) Is Nothing Then Exit Sub
Cancel = True
Intersect(Target.EntireRow, Sh.ListObjects(1).DataBodyRange).Copy
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.ListObjects.Count * Application.CutCopyMode = 0 Then Exit Sub
If Intersect(ActiveCell, Sh.ListObjects(1).Range.Offset(1)) Is Nothing Then Exit Sub
Cancel = True
Intersect(ActiveCell.EntireRow, Sh.ListObjects(1).Range.Offset(1)).Cells(1).PasteSpecial xlPasteValues
End Sub