Problème Macro "rechercher et remplacer"

Bonjour,

A l'aide de l'enregistrement du Macro Excel j'ai essayé de faire un petit macro pour rechercher et remplacer les points par des vides

Mais lors de l’exécution le macros remplace tous les points + les virgules !!?

pouvez vous s'il vous plait m'aider.

voir le code ci dessous

merci

Sub RR()

'

' RR Macro

Columns(":M").Select

Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

Bonjour

Essaie ça :

Sub RR()
    Columns("M:M").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

Résultat ?

Bye !

merci pour la réponse mais malheureusement ça marche pas

peut-tu vérifier svp

voir le fichier en PJ

Alors, essaie ça :

Sub RR()
    For Each cell In Range("M7:M" & Range("M" & Rows.Count).End(xlUp).Row)
        If Not IsNumeric(cell) Then
            cell.Value = Replace(cell, ".", "") * 1
            cell.NumberFormat = "#,##0.00"
        End If
    Next cell
End Sub

Bye !

Meeerci beaucoup pour la réponse

ça marche