Sub InsertLigne()
Dim DLig As Long
' Avec la feuille active
With ActiveSheet
' Trouver la dernière ligne du tableau
DLig = .Range("B" & Rows.Count).End(xlUp).Row
' Insérer une ligne à la fin (selon présentation tableau)
.Rows(DLig + 1).Insert
' Copier l'ancienne dernière ligne
.Rows(DLig).SpecialCells(xlCellTypeFormulas).Select
.Range(Selection, Selection.Offset(1, 0)).FillDown
' Sortir du mode copier/coller
Application.CutCopyMode = False
End With
End Sub