Erreur Macro

[Kesto]

Bonjour à tous,
et désolé de vous embêter pour si peu...
Alors voilà mon problème: j'ai réalisé une macro de facturation, qui marche très bien mais, lorsque ma macro insère une formule, celle-ci plante, je ne sais pour quelle raison.
Je suis novice en VBA et je ne sais pas comment gérer le problème, merci de vos réponses.
Voici le morceau de code qui ne marche pas (fin de la macro facturation)

ActiveCell.FormulaR1C1 = _
"=DAY(IF(TEXT(R[-1]C,0)=""Chèque à 30 jours"",R[-27]C[2]+30,IF(TEXT(R[-1]C,0)=""Chèque fin de mois"",EOMONTH(R[-27]C[2],0),"""")))&""/""&MONTH(IF(TEXT(R[-1]C,0)=""Chèque à 30 jours"",R[-27]C[2]+30,IF(TEXT(R[-1]C,0)=""Chèque fin de mois"",EOMONTH(R[-27]C[2],0),"""")))&""/""&YEAR(IF(TEXT(R[-1]C,0)=""Chèque à 30 jours"",R[-27]C[2]+30,IF(TEXT(R[-1]C,0)=""Chèque fin de mo" & _
"ONTH(R[-27]C[2],0),"""")))"