Suppression caractères

Bonjour

Comment supprimer dans une sélection de cellules
tous les caractères autres que les chiffres et les lettres?

J'ai essayé avec l'enregistreur de macros, mais c'est trop efficace
elle supprime tous les caractères!!!

Aprés quelques recherches dans Google Groups
j'ai trouvé quelques pistes (voir en fin de message) mais je n'arrive pas à
regrouper
tout cela dans une seule procédure?

Quelqu'un pourrait-il m'indiquer dans quelle direction chercher?

Les pistes en question:
Sub REMOVESPACE()
'David McRitchie 2000-02-28 excel.programming
Application.ScreenUpdating = False
Dim temp As String
Dim cell As Range
For Each cell In Selection.SpecialCells(xlCellTypeConstants, 2)
'above limits to constants which are TEXT
If InStr(1, cell.Value, " ") Then 'Insure possibility of change
temp = Trim(cell.Value)
While InStr(temp, " ") > 0
temp = Replace(temp, " ", "")
Wend
cell.Value = Trim(temp)
End If
Next
End Sub

Sub Supprime_Espaces()
Dim patente As Range
Application.ScreenUpdating = False
For Each patente In Selection
patente.Replace What:=" ", Replacement:=""
Next
End Sub

For Each Caractère In Array("/", " ", ".")
strTEL = Replace(strTEL, Caractère, "")
Next

Private Sub Command1_Click()
On Error GoTo errhandler
'Ajouter deux TextBox et un Bouton
Dim str_in, str_out As String
str_in = Text1
For i = 0 To Len(str_in) - 1
If Mid(str_in, 1 + i, 1) = "/" Or _
Mid(str_in, 1 + i, 1) = "." Or _
Mid(str_in, 1 + i, 1) = " " Then
Else
str_out = str_out & Mid(str_in, 1 + i, 1)
End If
Next i
Text2 = str_out
Exit Sub
errhandler:
Exit Sub
End Sub

MOT = "~?"

ActiveCell.Replace What:=MOT, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False


sub xx
Selection.Replace What:="~?", Replacement:="$"
end sub