Remplacer point par virgule par bouton VBA

Bonjour,

je souhaite pouvoir créer un bouton qui sélectionnerais plusieurs cellules de plusieurs feuilles et qui remplacerait des points par des virgules afin de pouvoir faire des calculs.

J'ai trouvé ça comme code (pas simplifier je sais haha) :

Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveWindow.ScrollWorkbookTabs Sheets:=21
    Sheets(Array("S53", "S52", "S51", "S50", "S49", "S48", "S47", "S46", "S45", "S44", "S43", _
        "S42", "S41", "S40", "S39", "S38", "S37", "S36", "S35", "S34", "S33", "S32", "S31", "S30", _
        "S29")).Select
    Sheets("S53").Activate
    Sheets(Array("S28", "S27", "S26", "S25", "S24", "S23", "S22", "S21", "S20", "S19", "S18", _
        "S17", "S16", "S15", "S14", "S13", "S12", "S11", "S10", "S9", "S8", "S7", "S6", "S5", "S4")) _
        .Select Replace:=False
    Sheets(Array("S3", "S2", "S1")).Select Replace:=False
    Range("B2:J169").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        Selection.NumberFormat = "#,##0.00"
    Sheets("Suivi_hebdo").Select
End Sub

Le code (bien que non optimisé) fonctionne sauf que les cellules passent en format texte et je n'arrive pas à passer en format nombre pour les calculs.

Si vous avez des idées .. Merci ! :)

Une idée mais sans fichier impossible de tester. Donc à adapter et sans aucune garantie.

Sub RelplacePoints()
    Dim sh as WorkSheet
    Dim rng as Range
   Dim cel as Range
   For Each sh in Worksheets 'Pour toutes les feuilles
      Set rng = Range("A1").currentRegion ' Défini la plage à traiter
      for Each cel in rng.cells ' Pour chaque cellule de la plage
         cel.value = replace(cel.value, ".", ",") ' on remplace
      next cel
    Next sh
end Sub

J'ai testé mais ça n'a pas l'air de fonctionner.

Le remplacement doit ce faire que dans les feuilles de SA à S53.

Voici le fichier joint. (pour info, la feuille S8 contient des valeurs avec POINT qui doit être modifier en VIRGULE pour les essais)

Merci pour la réponse rapide ;)

Si vous l'avez testé brut de coffre c'est normal que ça n'ai pas fonctionné. Avec un fichier exemple c'est tout de suite plus facile d'apporter une réponse adaptée.

Ohhh eh bien merci beaucoup, depuis le temps que je cherchais cette possibilité ! ;) Merci !