Option Compare Text 'ignore la casse, facultatif
Sub Nettoyage()
Dim F As Worksheet, liste, t, ncol%, i&, j%, x$, k%
Set F = Feuil1 'CodeName, à adapter
liste = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-./"
t = F.Range(F.UsedRange, F.UsedRange.Offset(1)) 'au moins 2 éléments
ncol = UBound(t, 2)
For i = 1 To UBound(t)
For j = 1 To ncol
x = t(i, j)
For k = 1 To Len(x)
If InStr(liste, Mid(x, k, 1)) = 0 Then _
x = Application.Replace(x, k, 1, "-")
Next
t(i, j) = IIf(IsDate(x), "'", "") & x
Next
Next
F.UsedRange = t
End Sub