Insérer un nombre donné de lignes.

Sub Macro1()
Dim x As Integer
Range("Ta_cellule_de_référence").Select
For x = 1 To toto
    Selection.EntireRow.Insert
Next x
End Sub

Sub insertLignes()
 Dim c As Range
 Set c = ActiveCell.EntireRow 'ou autre cellule
 c.Resize(toto).insert (xlShiftDown)
End Sub

Sub inserlig()
'
'
Dim plage As String, tablo() As String
Dim cptr As Long, nbre As Long
Dim pair As Boolean
Dim impair As Boolean
Dim nblig As Range

' compte le nombre de lignes selectionnees

plage = Selection.Address
tablo = Split(Selection.Address, ",")
For cptr = 0 To UBound(tablo)
nbre = nbre + Range(tablo(cptr)).Rows.Count
Next
 
 Set nblig = ActiveCell.EntireRow 'ou autre cellule
 nblig.Resize(nbre).Insert Shift:=xlDown
 
End Sub