Voilà :
Option Explicit
Dim i&, derln&
Sub Reporter()
derln = Application.Max(2, Sheets("Récap").Range("A" & Rows.Count).End(xlUp)(2).Row)
Range("C5:C8").Copy
Sheets("Récap").Range("A" & derln).PasteSpecial xlPasteAll, Transpose:=True
MsgBox "Les données ont été reportées."
Range("C5:C8").ClearContents
End Sub
bye !