Macro insertion ligne avec formule conservée

Bonjour le forum,

J'utilise une macro pour insérer des ligne supplémentaires dans un tableau de travail.

Celle-ci se compose de liste déroulante : -> pas de soucis la copie se fait bein

J'aimerais insérer 2 formules dans cette ligne de référence : à savoir juste une égalité vers une cellule contenant une date et une autre contenant cette même date + 1 jour

Et il faudrait que lors de l'insertion, ces égalités soit conservées et non modifiées en fonction du numéro de ligne.

Voici la macro en question que j'utilise :

Sub AjoutLigne()

    Selection.EntireRow.Insert
    Range("A1:R1").Copy Range("A" & ActiveCell.Row)

End Sub

Un grand merci d'avance pour votre aide.

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Bonjour Jean-Eric,

Voici un fichier exemple comme demandé.

Merci d'avance.

Bonjour,

Modifie la formule :

I1 : =$P$8

Cdlt.

Re,

C'est parfait ça fonctionne !!

Un grand merci...

Bonne journée

Re,

pense à clore le sujet.

Cdlt.