Sub CopiePasDe9()
Application.ScreenUpdating = False
Rows("9:9").Select
Selection.Copy
For x = 349 To 29160 Step 9
Rows(x).Select
ActiveSheet.Paste
Next x
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox " Copies terminées. "
End Sub