Sub test()
Dim c As Range, d As Range
Set d = Sheets("Feuil7").Range("R11") 'Début de la zone de destination
Set c = Sheets("Feuil1").Range("A2") 'A adapter l'adresse de la 1ère cellule de ton tableau à copier
Do While c <> ""
Do While d.EntireRow.Hidden = True
Set d = d(2, 1)
Loop
c.Resize(, 8).Copy Destination:=d 'A adapter si y a pas 8 colonnes à copier
Set d = d(2, 1)
Set c = c(2, 1)
Loop
End Sub