Macro pour convertir en numerique

Sub tutu()
Dim oPlg As Range
    For Each oPlg In Selection.Areas
        oPlg.Value = oPlg.Value
    Next
End Sub

Sub Numérique()

Application.Calculation = xlCalculationManual
Dim T As String, X, Elt As Variant, K&
Dim Rg As Range, C As Range
X = xlNumberAsText
With ActiveSheet
K = Cells(65536, 3).End(xlUp).Row
Set Rg = .Range("A:H")
On Error Resume Next
For Each C In Rg
With C
If C <> vbNullString Then
T = C.Value
For Each Elt In Array(" ", Chr(160))
T = Replace(T, " ", "")
Next
T = Replace(T, ".", Format(0, "."))
.NumberFormat = "General" 'Standard
.Value = CDbl(T)
End If
End With
Next
End With
Set Rg = Nothing
Application.Calculation = xlCalculationAutomatic

End Sub