caractere indesirable

Bonsoir le forum
voici un code qui n'est pas mal en faite mais qui supprime juste les lettres et malheureusement pas les points ni les virgule ou signe € quel attribut faut il utiliser pour enlever les points est autre signe
merci a vous et bonne soirée

Option Explicit

Sub Test()
SupprLettres Range("A1:G10")
End Sub

Sub SupprLettres(Plage As Range)
Dim C As Byte
Application.ScreenUpdating = False
Set Plage = Plage.SpecialCells(xlCellTypeConstants, xlTextValues)
For C = 65 To 90
Plage.Replace Chr(C), ""
Plage.Replace Chr(C + 32), ""
Next C
Application.ScreenUpdating = True
End Sub