Sub Ajout()
Dim DerLigne As Long
DerLigne = Cells(Rows.Count, 1).End(xlUp).Row
Rows(DerLigne).Copy
Rows(DerLigne + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cells(DerLigne + 1, 1) = Cells(DerLigne, 1) + 1
End Sub