Range et ActiveCellFormulaR1C1

Bonjour,

Est-il possible de "fusionner" en une seule ligne les deux suivantes ? Ou d'avoir quelque chose de moins barbare

Code:

---

1 2	Range("D30").Select ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"

---

Merci d"avance
Olivier

Code:

---

Range("D3").formular1c1=

---