Sub Ajouter_lignes()
Dim P As Range
Application.ScreenUpdating = False
Dim AjoutLig As Integer
AjoutLig = Application.InputBox("Combien de ligne", "Ajout ligne ?", Type:=1)
For i = 1 To AjoutLig
Set P = Cells(Cells(Rows.Count, 2).End(xlUp).Row - 1, 2).Resize(1, 15)
P.Copy
P.Insert Shift:=xlDown
On Error Resume Next
P.SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0
Application.CutCopyMode = False
Rows(P.Row).RowHeight = 30
Rows(P.Row + 1).RowHeight = 30
Set P = Nothing
Next i
Application.ScreenUpdating = True
End Sub