Bonsoir math , forum
Voila un p'tit code qui doit repondre a ton probleme que je rencontre souvent en traitant des fichiers importes
Sub MyEspace()
Application.ScreenUpdating = False
For Each cel In Selection
For i = 1 To Len(cel.Value)
If IsNumeric(Mid(cel.Value, i, 1)) Then
tempval = (tempval & Mid(cel.Value, i, 1))
End If
Next i
cel.Value = tempval
tempval = Empty
Next cel
Application.ScreenUpdating = True
End Sub