XL 2013 language VBA: Insérertion des lignes entre les cellules

Staple1600 à dit:

Bonjour

Un possibilité (qui se base ici sur la colonne A)

VB:

Sub Insertion7lignes()
Dim NB_Lig&, DerLig&, Lig&, i&
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
NB_Lig = 7
Lig = 2
Application.ScreenUpdating = False
For i = 1 To DerLig
Rows(Lig).Resize(NB_Lig).Insert
Lig = Lig + NB_Lig + 1
Next i
End Sub

Cliquez pour agrandir...

ella17 à dit:

Merci beaucoup.

Cliquez pour agrandir...