Function ReplaceClean(sText As String, Optional sSubText As String = " ")
'auteur : Allen WYATT
Dim J As Integer
Dim vAddText
vAddText = Array(Chr(32), Chr(129), Chr(141), Chr(143), Chr(144), Chr(157), Chr(160))
For J = 1 To 31
sText = Replace(sText, Chr(J), sSubText)
Next
For J = 0 To UBound(vAddText)
sText = Replace(sText, vAddText(J), sSubText)
Next
ReplaceClean = sText
End Function
Sub test()
Application.ScreenUpdating = False
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
cell.Value = ReplaceClean(cell.Value, "")
Next cell
Application.ScreenUpdating = True
End Sub