Dim Feuille As Worksheet
Dim list_obj As ListObject
Dim list_row As ListRow
Set Feuille = Sheets("Stock")
Set list_obj = Feuille.ListObjects(Nom_Tableau)
Set list_row = list_obj.ListRows.Add
Last_Line = list_obj.Range.Rows.Count
list_row.Range(Last_Line - 1, 9).Select ' sélection de la cellule source
Selection.Copy
' ligne pour sélectionner la plage pour copy
'list_row.Range("J" & Last_Line - 1 & ":" & "J" & Last_Line).Select
'list_row.Range(Cells(9, (Last_Line - 1)), Cells(9, Last_Line)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False