macro pour "rechercher/remplacer"

Bonjour,

je tente de faire une simple macro pour transformer les "," en "." !

ceci fonctionne très bien manuellement mais dès que je l'enregistre en macro, cela ne fonctionne pas !

voici la macro :

Sub remplac_virgules()
'
' remplac_virgules Macro
' Macro enregistrée le 03/02/2005 par Laboratoire
'

'
Columns("M:N").Select
Selection.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
****Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A2").Select
End Sub


C'est sur la ligne ou il y a les *** que se trouve l'erreur d'après le débogueur !?

Merci