Créer et copier une ligne en fin de tableau

Je souhaiterai créer une macro sur le bouton INSERER LIGNE qui permettrait de :

• copier les lignes 10 et 11 (modèle de ligne)
• coller les 2 lignes à la fin du tableau à chaque utilisation du bouton
• mettre à jour les totaux en bas de tableau

Merci d'avance,

Bonjour,

à tester,

Sub Créer_Nouvelle_Ligne()
LastRow = Sheets("FRE_OPE").Cells(Rows.Count, 1).End(xlUp).Row
Rows("10:11").Copy
Rows(LastRow + 2).Insert Shift:=xlDown
Range("A" & LastRow & ":A" & LastRow + 1).AutoFill Destination:=Range("A" & LastRow & ":A" & LastRow + 3), Type:=xlFillDefault
End Sub