Sub Ligne_inserer()
Dim n, L As Range
Set L = ActiveCell.EntireRow
Dim u As String
n = InputBox("Combien de ligne voulez-vous insérer ?", "Choix", 1) 'nombre de lignes à insérer
If Not IsNumeric(n) Then Exit Sub
Rows("14:1058").Select
ActiveSheet.Outline.ShowLevels RowLevels:=2
Rows("1:1").Select
L(2).Resize(n).Insert
Rows(1).Copy L(2).Resize(n)
L(2).Resize(n).RowHeight = L(n - 1).RowHeight
End Sub