Validation UF et formule

Bonjour,

Lors de la validation d'une UF, je souhaite qu'une cellule de ma base soit mise à jour avec la formule suivante :

ActiveCell.Offset(0, 1).Value = DateMariage.Value
ActiveCell.Offset(0, 2).Value = (DROITE(DateMariage.Value;4)&"/"&STXT(DateMariage.Value;4;2)&"/"&GAUCHE(DateMariage.Value;2))

Or, si la formule marche manuellement dans le tableau excel
=(DROITE(B13;4)&"/"&STXT(B13;4;2)&"/"&GAUCHE(B13;2))

Elle ne fonctionne pas dans le VBA. Où est mon erreur ?

D'avance merci pour votre aide
Lisa