re, le fichier que tu as joint ne contient aucune macro, et si tu pouvais ajouter un bout du fichier csv, cela serait plus pratique ...
Sub Cleanup()
ActiveSheet.UsedRange.Columns.Select
Selection.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False