Alors prends ton fichier de départ et colle ceci juste avant le "end sub", tout en bas.
' changement du format colonne "F".
Columns("F:F").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A4").Select