Autres Ajouter ligne par macro

[fenec]

Bonjour le forum,
Je viens vers vous car je ne parviens pas à ajouter une ligne comme le dit le titre.
J'ai repris un code que j'utilise dans un autre fichier mais il ne fais pas ce que je souhaite.
Je voudrais rajouter une ligne voir plusieurs via un input box qui me demanderais combien je veux rajouter de ligne si plus de ligne vide.
J'espère avoir été clair dans ma demande
Cordialement Philippe.

 

[Phil69970]

Fenec, le forum

La reponse se trouve peut être ici :

==> https://www.excel-downloads.com/thr...e-pour-ajouter-x-lignes-via-inpoutbox.202592/

Ou bien une variante :

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

Cordialement

 

[fenec]

Bonjour le forum, Phil69970
Merci pour ta variante qui fonctionne et merci aussi pour avoir retrouver ce lien que je n'avais pas retrouver.
Cordialement