Bonjour,
Un exemple à adpater :
Dim rng As Range 'plage à copier
Dim n As Long 'denière ligne colonne 1
Set rng = Range("A2:C10") 'exemple de plage à copier
n = Cells(Rows.Count, 1).End(xlUp).Row
rng.Copy
Cells(n + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False