Public Function CharAllowed(ByVal s As String) As String
Dim s1$, i&, s2$, T$
s1 = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜ"
s2 = "AAAAAAEEEEIIIIOOOOOUUUU"
'replace des accents
For i = 1 To Len(s)
s = Replace(s, Mid$(s1, i, 1), Mid$(s2, i, 1))
Next i
'on garde que les lettre (majuscule ou minuscule)
For i = 1 To Len(s)
If UCase(Mid(s, i, 1)) Like "[A-Z]" Then T = T & Mid(s, i, 1)
Next
CharAllowed = T
End Function
Sub test()
MsgBox CharAllowed("ÂÃÄÅÈÉ54236;:dfg,/+ahsotBTY456")
End Sub