Comment modifier code pour ajouter x lignes via inpoutbox

Sub Ajouter_lignes()
   Dim P As Range
   Dim nbrLig As Integer
   
   nbrLig = InputBox("Combien de ligne voulez-vous rajouter ?", Title:="Lignes")
       If nbrLig = 0 Then
         Exit Sub
       Else
Application.ScreenUpdating = False
   For counter = 1 To nbrLig
   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 = 50
   Next
  Set P = Nothing
   End If
Application.ScreenUpdating = True
End Sub

Sub Ajouter_lignes()
Dim nbrLig As Integer, P As Range
nbrLig = Val(InputBox("Combien de ligne voulez-vous rajouter ?", "Lignes"))
If nbrLig = 0 Then Exit Sub
With Cells(Rows.Count, 2).End(xlUp)(0).Resize(, 15) 'avant-dernière ligne
  .Rows(2).Copy .Rows(nbrLig + 2)
  Set P = .Rows(2).Resize(nbrLig)
  .Copy P
  On Error Resume Next
  P.SpecialCells(xlCellTypeConstants).ClearContents
  On Error GoTo 0
  P.RowHeight = 30
  .Rows(nbrLig + 2).RowHeight = 50
End With
End Sub

Sub Ajouter_lignes()
Dim nbrLig As Integer
nbrLig = Abs(Val(InputBox("Combien de ligne voulez-vous rajouter ?", "Lignes")))
If nbrLig = 0 Then Exit Sub
With Cells(Rows.Count, 2).End(xlUp).Resize(nbrLig, 15) 'sur dernière ligne
  .Rows(1).Copy .Rows(nbrLig + 1)
  .Rows(0).Copy .Rows 'copie de l'avant-dernière ligne
  On Error Resume Next
  .SpecialCells(xlCellTypeConstants).ClearContents
  On Error GoTo 0
  .RowHeight = 30
  .Rows(nbrLig + 1).RowHeight = 50
End With
End Sub