Remplacer point par virgule

Bonjour,

J'ai enregistré une macro pour remplacer les points en virgules dans mon programme.

Mais lorsque j'utilise cette macro dans mon programme dans mon programme un message d'erreur s’affiche sur les 3 dernières lignes de ce dernier.

Range("B13").Select

ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate 

Pourriez vous m'aider à corriger le programme, ou il y a une autres solution pour le faire.

Merci d'avance,

Pati

Bonjour Pati,

Faire sinon comme ci-dessous.

Sub RepDot()
Range("B13") = Replace(Range("B13"), ".", ",")
End Sub

Bonne continuation.

Merci beaucoup, cela est beaucoup plus simple et efficace.