j'ai essayé comme ca mais toujour le même résultat
Columns('A:C').Select
Selection.Copy
Windows('macro.xls').Activate
Columns('A:c').Select
ActiveSheet.Paste
Columns('A:C').Select
Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Comme j'ai dit plus tot
ca fonctionne si j'enlève
Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
mais dans ce cas je doit changé dans windows dans paramètre régionaux, nombre, symbole décimale et mettre point à la place de virgule. mais je veux rester avec la virgule comme symbole décimale.