VBA Replacing dot with comma

Bonjour,

Je commence à programmer en VBA et je rencontre quelques difficultés à remplacer les points par des virgules dans ma macro.

J'ai essayé le code suivant

Dim Cell As Range

    For Each Cell In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))

        Cell.Value = Application.WorksheetFunction.Substitute(Cell.Value, ".", ",")

    Next

et celui la

Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column)).Select

    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _

    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,

    ReplaceFormat:=False

Mais les deux ne donnent pas le bon résultat. Par exemple pour 124.365765 ça donne 124 365 765

au lieu de 124,365765

Quelqu'un pourrait m'aider pour résoudre ce problème ?

Merci d'avance

Bonsoir,

Oui bien sur si tu nous présentes ton fichier.

Merci pour ta réactivité.

J'utilise le fichier Main qui contient la macro et qui récupère les données d'un fichier csv nommé MT.csv

Je vous les joint tout les deux.

Et voila le fichier de données MT.csv

Re,

Voici la méthode à suivre pour l'ouvrir proprement :

1. Ouvrir Excel

2. Données/Fichiers texte

3. Ouvrir le fichier .csv

4. Cocher : Délimité faire Suivant

5. Cocher le séparateur virgule et Suivant

6. Cliquer sur le bouton Avancé

7. Choisir le point comme séparateur décimal et OK

8. Cliquer sur Terminer.

Bien entendu toutes ces actions peuvent être enregistrer avec l'enregistreur de macro pour être utilisé plus tard.