Salut Nico,
Bienvenue sur le Forum & dans le monde merveilleux de la VBA ;D!
Ci-dessous un code qui te permet de faire ce que tu demande :
Sub CopyAndPaste()
Rows("1:2").Copy
Sheets("Feuil2").Rows(Range("B" & Rows.Count).End(xlUp).Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Si tu veux des explications, je reste dispo pour répondre à tes questions!