Copie de formule en VBA

Bonjour à Tous

Voici mon problème.

Dans l'onglet "Analytique" avec

Colonne A : des codes

Colonne B : des libelles

Colonne C : Formules de "Somme si" de dépenses

Colonne D : Formules de "Somme si" de recette

Colonne E : Formules de "différence"

Ce que je souhaite faire :

Lorsque je veux créer un nouveau code je clique sur mon bouton « code supplémentaire »

Je remplis le Code et libelle et j’aimerais avoir la formule en automatique en dépense, recette et solde lorsque je valide

(sachant que au début de fichier il peut rien n’y avoir comme formule)

Je vous joins mon exemple

Merci de votre aide

Salut,

Rajoute les 3, 4 et 5èmes lignes ci-dessous aux deux autres déjà présentes dans ton code

Sheets("Analytique").Range("A" & N_LIGNE_CODE) = ANA_CODE
Sheets("Analytique").Range("B" & N_LIGNE_CODE) = ANA_LIBELLE
Sheets("Analytique").Range("C" & N_LIGNE_CODE).FormulaR1C1 = "=SUMIF(Dépense!C[9],RC1,Dépense!C[10])+SUMIF(Dépense!C[11],RC1,Dépense!C[12])+SUMIF(Dépense!C[13],RC1,Dépense!C[14])+SUMIF(Dépense!C[15],RC1,Dépense!C[16])"
Sheets("Analytique").Range("D" & N_LIGNE_CODE).FormulaR1C1 = "=SUMIF(Recette!C[8],RC1,Recette!C[9])+SUMIF(Recette!C[10],RC1,Recette!C[11])+SUMIF(Recette!C[12],RC1,Recette!C[13])+SUMIF(Recette!C[14],RC1,Recette!C[15])"
Sheets("Analytique").Range("E" & N_LIGNE_CODE).FormulaR1C1 = "=RC[-1]-RC[-2]"

Cordialement.

Merci c'est tout a fait cela