Ecrire formule (excel) avec fonction SI imbliquée dans un module

Bonjour
En utilisant l'enregistreur de macro tout simplement. Si vous faites l'enregistrement à partir de la cellule qui reçoit la formule, ce qui donne

    ActiveCell.FormulaR1C1 = "=IF(R2C1>9.5,1.5,R2C1-IF(R2C1>8,8,R2C1))"

ou bien en désignant la cellule qui va recevoir la formule, ici cellule B2

    [B2].FormulaR1C1 = "=IF(R2C1>9.5,1.5,R2C1-IF(R2C1>8,8,R2C1))"

Mais votre formule pourrait s'écrire
=SI($A$2>9,5;1,5;SI($A$2>8;$A$2-8;0))
Ce qui donne en VBA

    ActiveCell.FormulaR1C1 = "=IF(R2C1>9.5,1.5,IF(R2C1>8,R2C1-8,0))"

Cdlt