Macro pour insérer 2 lignes entre chaque ligne dans un Range

Bonjour à tous,

je recherche une macro pour insérer 2 ou 3 lignes vierges entre chaque lignes mais pas dans tout le tableau mais seulement un range soit entre A17 & A650? J'en ai une mais elle fait tout le tableau et dans les 17 premières lignes j'ai des images et entête que je ne veux pas espacer!

Merci à l'avance pour votre aide.

Bonsoir,

essaie ceci:

Sub InsertionLigne()

Dim i As Integer

For i = 650 To 17 Step -1

Cells(i + 1, 1).Select

ActiveCell.Offset(1).Resize(2, 1).EntireRow.Insert

Next

End Sub

Dans cet exemple, tu insères 2 lignes.

Modifie la valeur entre parenthèse après Resize pour insérer plus ou moins de lignes.

Cordialement.

Super Gros Merci Patrick!!! C'est exactement cela!! Merci encore