Sub InsereLign()
Dim Plage As Range
Dim L As Long
Application.ScreenUpdating = False
Set Plage = Rows(6)
For L = 11 To 2250 Step 5
Set Plage = Application.Union(Plage, Rows(L))
Next L
Plage.Insert Shift:=xlDown
Application.ScreenUpdating = True
MsgBox "Insertion terminée !"
End Sub