Sub copie_LO_bis()
'recopie sans entêtes en A1, feuille 2
ActiveSheet.ListObjects("MonTableau").DataBodyRange.Copy Sheets(2).[A1]
Application.CutCopyMode = False
End Sub
Sub copie_LO_ter()
'recopie sans entêtes et en valeurs seules
'dans la 1ère cellule vide en colonne 1 de la feuille 2
ActiveSheet.ListObjects("MonTableau").DataBodyRange.Copy
Sheets(2).Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
Application.CutCopyMode = False
End Sub