remplacer par macro

Bonjour!

je bloque en ce moment sur un problème tout bête...
je souhaite réaliser par macro l'équivalent du "Ctrl + H" (remplacer par) dans le seul but de remplacer des points par des virgule (traitement de données).

le souci, c'est que quand je fais la manip "manuellement" tout se passe de manière ok.
et quand je passe la manip en macro via:

Code:

---

1 2	Range("A:A").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

j'ai un changement de format au niveau de certaines de mes valeurs... le remplacement s'effectue bien mais j'ai des données qui devienne aberrantes.
En gros quand je considère une suite de 0.1000 jusqu'à 1.0000, au lieu de me le convertir en 0,1000 à 1,000 j'ai une suite qui bascule directement à 1 000 à partir du 1.000...

ben je ne sais pas si j'ai été clair... en pièce jointe il y a un petit exemple.
en gros j'aimerais que mon 1.000 se transforme en 1,000 et non en 1 000 (pourtant à aucun moment, je crois, je ne demande de faire des changements de format ni même d'ajout d'espace)...

des idées?
merci!Pièce jointe 201122

Bonjour,

Code:

---

1 2	Range("A:A").numberformat="standard" Range("A:A").value =Range("A:A").value

---