Insertion de formule

Bonjour,

Avec un cmd en VBA j'insert une ligne.

Mais sur la ligne supérieure il y a certaines cellules avec des formules.

Je souhaiterais donc que lors de mon insertion de ligne les formules soient aussi insérées tout en s’adaptant a la ligne.

Exemple :

Dans la cellule 5 de la ligne 2 on a la formule (=$H$11-G2+I2)
Donc quand j'insert la ligne 3 (sous la ligne 2)
Je souhaiterais que dans la cellule 5 de la ligne 3 la formule suivante soit insérer (=$H$11-G3+I3)

Ne savant pas trop comment faire, j'ai voulus utiliser un enregistrement de macro pour ensuite copier coller et adapter le code. mais ca marche pas. :)

Voici le code que ca me donne

Code:

---

1 2 3

Sheets(Nsheet).Cells(P, 10).Select Selection.AutoFill Destination:=Range(Sheets(Nsheet).Cells(P - 1, 10), Sheets(Nsheet).Cells(P, 10)), Type:=xlFillDefault

---

Il faut savoir que j'utilise Nsheet car le nom de feuille peut varier
Pareil pour le P la ligne peut aussi varier

Merci pour votre aide.

Salut

Bah je viens de trouver comment faire avec autofill.

Code:

---

1 2 3

Range("J" & W).Select Selection.AutoFill Destination:=Range("J" & W & ":J" & P), Type:=xlFillDefault

---

avec W et P variable

Bonne journee