Sub AfficherDecimales()
Dim t, i&
With ActiveSheet.UsedRange.Resize(, 3)
t = .Value 'matrice, plus rapide
For i = 1 To UBound(t)
t(i, 3) = Replace(t(i, 3), " ", "")
Next
.Columns(3).NumberFormat = "@" 'format Texte
Application.ErrorCheckingOptions.NumberAsText = False 'évite le triangle vert
.Columns(3) = Application.Index(t, , 3)
End With
End Sub