macro de rempalcement qui ne fonctionne pas

Sub enlevelescaract2()
Dim Cellule1 As Range
Dim Plage As Range
    
On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
    On Error GoTo 0
    If Plage Is Nothing Then
        MsgBox "Sélection annulée"
        Exit Sub
    End If
'toto = InputBox("saisissez la plage au format a2:e10 ")


For Each Cellule1 In Plage
    If Cellule1 <> "" Then
        Cellule1 = Replace(CStr(Cellule1), ",", " ")
    End If
Next Cellule1

End Sub