Private Sub test1_Click()
Dim c As Range, a As Long
Set c = [A1]
a = Feuil1.UsedRange.Rows.Count + 1
Do While c.Row < a
c.Resize(, 2).AutoFill c.Resize(IIf(c.End(xlDown).Row < 65000, c.End(xlDown).Row - c.Row, 8), 2)
Set c = c.End(xlDown)
Loop
End Sub