Bonjour,

Je veux automatiser le remplacement des virgules dans une feuille par un point.
J'ai essayé en enregistrant une macro, dont voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
ThisWorkbook.Sheets("Output_Action").Select
    Cells.Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False