Sub InsertionLignesRecopieFormules()
' Macro enregistrée par Excel-lent
'
' Méthode 3 : insére le nb de ligne voulu et recopie la formule de la colonne E
Dim ligne As Long
Dim Nbligne As Integer
ligne = Sheets("Feuil1").Range("E65536").End(xlUp).Row
Nbligne = InputBox("Combien de ligne faut-il rajouter?", "Q U E S T I O N !")
Rows(ligne - 1 & ":" & ligne - 2 + Nbligne).Select
Selection.Insert Shift:=xlDown
Cells(ligne - 2, 5).Select
Selection.Copy
Range(Cells(ligne - 1, 5), Cells(ligne - 2 + Nbligne, 5)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub