Sub Numérique()
'
' Numérique Macro
'
Application.ScreenUpdating = False
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("L1:H" & K)
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