It would be a normal replace, like removing the commas and putting spaces; And removing the dots and putting commas?
Cell format is in text or number?
If you want to repeat yourself, just put a loop to the end, anything edits your questions with additional information.
well, try this:
 Range("A1").Select
    Cells.Replace What:=",", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False