Formule a mettre en macro

Bonjour ,

J'ai cette formule qui marche " =IF(LEFT(RC[-1],3)=""de "",SUBSTITUTE(RC[-1],"","","" et de "",1),RC[-1]) "
mais quand je fais un essai en macro avec " If Left(X.Value, 3) = "de " Then X.Value = Replace(X.Value, ",", " et de ", 1) "
il me remplace dans les cellules commencent par "de " toute les virgules par " et de " alors que je ne veux
que le remplacement de la premiere virgule !!

Merci
Lionel