Sub InsèreCopieLigne()
Range("A" & Rows.Count).End(xlUp).Resize(2, 6).FillDown
Range("A" & Rows.Count).End(xlUp).Offset(-1, 0).Resize(1, 6).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub