Sub test()
Sheets('Data').Select
Range('a1').Select
For i = 1 To Range('A65536').End(xlUp).Row
Rows(i).Select
Selection.Copy
Sheets('feuil2').Select
Range('a65536').End(xlUp).Select
For j = 1 To 5
ActiveSheet.Paste
Selection.Offset(1, 0).Select
Next j
Sheets('Data').Select
Selection.Offset(1, 0).Select
Next i
End Sub