Sub Insertion12Lignes()
Dim nbl&, r As Range
nbl = InputBox("Saisir le nombre de lignes à insérer:", "INSERTION LINES", 12)
Set r = Range("A5")
Do
Range(r.Offset(1), r.Offset(nbl)).EntireRow.Insert
Set r = Cells(r.Row + nbl + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop
End Sub