Option Explicit
Sub test()
Dim i As Long, j As Byte
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 2 Step -1
For j = 1 To 10
Rows(i).Insert
Next j
Next i
Application.ScreenUpdating = True
End Sub
Sub Insere_10_Lignes()
Dim DerLig As Long, I As Long
Application.ScreenUpdating = False
DerLig = Range("A65536").End(xlUp).Row
For I = DerLig To 2 Step -1
Rows(I).Resize(10).Insert
Next I
End Sub