XL 2010 Aide modif code VBA Insertion lignes

Bjr safranien

comme ça :

Cordialement, Gérard

Bonjour Gérard

merci beaucoup !!! Du coup, si je veux insérer 20 lignes toutes les 5 lignes toujours à partir d'A2, comment dois-je écrire le code?
Comme ça? Désolé je n'y comprends rien au VBA.

Sub InsereLign()

Dim Plage As Range

Dim L As Long

Application.ScreenUpdating = False

Set Plage = Rows(7)

For L = 20 To 2250 Step 5

Set Plage = Application.Union(Plage, Rows(L))

Next L

Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown
Plage.Insert Shift:=xlDown

Application.ScreenUpdating = True

MsgBox "Insertion terminée !"

End Sub

A priori non ce n'est pas ça, je n'obtiens pas le résultat attendu.
Pour le code d'origine, il fonctionne très bien pour l'insertion de 10 lignes toutes les 4 lignes par contre est-ce normal qu'il soit super long à s'exécuter? J'ai fait l'essai avec seulement 16 lignes de données mais en voulant insérer 70 lignes (en écrivant 70 fois Plage.Insert Shift:=xlDown dans le code) toutes les 4 lignes et ça met 5 bonnes minutes avant que ce ne soit fini.