Insertion lignes avec macro

Bonjour,

J'ai trouvé il y a quelques temps une macro bien pratique. Elle permet d'insérer une ligne en recopiant les formules. De plus, elle ouvre une sorte de pop-up où on demande le nombre de lignes qu'on veut insérer.

Mais impossible de remettre la main dessus...

Quelqu'un peut m'aider svp ?

Merci

Bonsoir,

Faudrait voir la feuille, essaye avec

Sub InsertLignes() 
Dim Lg%, Rep
    Lg = Range("A65536").End(xlUp).Row
    Do
        Rep = Application.InputBox("Combien de lignes à ajouter ?", "Ajoute lignes", 1, Type:=1)
        If Rep = False Then Exit Sub  'bouton  Annuler
    Loop While Rep = ""

    Rows(Lg).Copy
    Range(Rows(Lg + 1), Rows(Lg + Rep)).Insert
    Application.CutCopyMode = False
    Range(Rows(Lg + 1), Rows(Lg + Rep)).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

Amicalement

Claude

Bonjour,

C'est gentil d'être passé par là

à+.... Claude

Bonjour,

Mille excuses de ne pas être revenu poster un retour...

La macro proposée permet bien d'insérer des lignes avec une boîte de dialogue mais elle ne prend pas en compte l'emplacement de la cellule actuellement sélectionnée.

Exemple :

Je suis en A4 et je veux insérer 2 lignes au-dessous de ligne 4.

Merci !!!