Sub SupprimeZero()
Dim c As Range, x As Byte
Application.ScreenUpdating = False
For Each c In Selection
For x = 1 To Len(c)
If Mid(c, x, 1) <> 0 Then
c = Right(c, Len(c) - x + 1)
Exit For
End If
Next x
For x = 1 To Len(c)
If Not IsNumeric(Mid(c, x, 1)) Then
c = Left(c, x - 1)
Exit For
End If
Next x
Next c
Application.ScreenUpdating = True
End Sub