Sub copy()
Dim derlig As Long
derlig = Sheets("Feuil2").Columns(4).Find("*", , , , , xlPrevious).Row + 1
If (derlig - 4) Mod 7 = 0 Then derlig = derlig + 1
Sheets("Feuil1").Range("D6:K6").copy
Sheets("Feuil2").Range("D" & derlig).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub