Fonction recherche et remplace

Bonjour,

Voilà pendant longtemps j'ai utilisé la fonction recherche "," et remplace par ".".

J'utilisais la fonction enregistreur de macro pour faire ça de façon automatique.

Voici la fonction enregistrée:

Columns("A:N").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Cela fonctionnais très bien jusqu'à aujourd'hui. Maintenant, avec la même fonction le chiffre
0001752.09000 se transforme en 175209000

Le truc c'est que si j'utilise cette fonction manuellement ( Crtl + H ) cela fonctionne très bien.
Quel est le problème ?

Enfin si je fait la même fonction mais que je remplace le point par un point alors la fonction me transforme le point en virgule... c'est à ne rien y comprendre...

Pouvez vous m'aider s'il vous plait ?
Merci par avance