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