utiliser un code que sur certaine plage

Sub Macro1()
Dim c As Range
Dim i As Byte
Dim nombre As String
 
For Each c In Selection
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then
nombre = nombre & Mid(c, i, 1)
End If
Next i
c = CDbl(nombre)
nombre = ""
Next c
 
End Sub

Sub Tst()
Dim c As Range
Dim i As Long, r As Long
Dim str as String

    r = Range("A65536").End(xlUp).Row
    For Each c In Range("A1:J" & r)
        For i = 1 To Len(c)
            str= SuppLettresPoint(c)
        Next i
        If IsNumeric(str) Then c = CDbl(str)    
    Next
End Sub

For Each c In Range("ta_plage")

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]

[COLOR=NAVY]Sub[/COLOR] Test()
    [COLOR=GREEN]'Supprimer les caractères alphabétiques dans la plage souhaitée[/COLOR]
    SupprLettres Range("A1:G10")
[COLOR=NAVY]End Sub[/COLOR]

[COLOR=NAVY]Sub[/COLOR] SupprLettres(Plage [COLOR=NAVY]As[/COLOR] Range)
[COLOR=NAVY]Dim[/COLOR] C [COLOR=NAVY]As Byte[/COLOR]
    Application.ScreenUpdating = [COLOR=NAVY]False
    Set[/COLOR] Plage = Plage.SpecialCells(xlCellTypeConstants, xlTextValues)
    [COLOR=NAVY]For[/COLOR] C = 65 [COLOR=NAVY]To[/COLOR] 90                    [COLOR=GREEN]'Caractères de A à Z[/COLOR]
        Plage.Replace Chr(C), ""            [COLOR=GREEN]'Majuscules[/COLOR]
        Plage.Replace Chr(C + 32), ""       [COLOR=GREEN]'Minuscules[/COLOR]
    [COLOR=NAVY]Next[/COLOR] C
    Application.ScreenUpdating = [COLOR=NAVY]True
End Sub[/COLOR][/SIZE]