Insérer des lignes à partir d'un cellule donnée

Bonjour,

j'ai cherché dans le forum une réponse à ma question mais les sujets étaient assez techniques.

Je cherche une macro pour insérer 20 lignes à partir d'une cellule active. J'arrive à insérer une seule ligne mais je voudrais pouvoir en insérer plusieurs d'un coup!

Merci pour vos réponses,

Henri

Bonjour,

Quel est votre code actuel ?

Bonjour

Sub InsertRow_Example()
Range("6:10").Insert
End Sub

Ce code insère 5 lignes après la ligne 5

Sub InsertRow_Example()
    With Range(ActiveCell, ActiveCell.Offset(19, 0)).EntireRow
        .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End With
End Sub

Sub InsererLignes(n As Integer)
     Selection.Offset(1).Resize(n).EntireRow.Insert
End Sub

Top, merci à tous pour vos réponses, je vais regarder cela avec attention!