bonsoir,
La macro que tu cites pourrait provoquer une erreur dans certains cas
En cas que... En voici une autre qui marchera à coup sur si c'est bien le Chr(160) qui est en cause... (il en existe de nombreux autres !)
Sub macro()
Dim o
For Each o In Selection
o.Value = Replace(o.Value, Chr(160), "")
Next
End Sub
A+