Tu peux mettre ca dans ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(1, Target.Value, "," ) > 0 Then
Target.Value = Replace(Target.Value, ",", "." )
End If
End Sub
ca transforme les "," en "." dès que tu modifies une cellule.