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
Merci beaucoup.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