Bonjour,
Si VBA permis. Fonction à mettre dans un module standard et à utiliser comme n'importe quelle fonction.
Function Caracteres(ByVal Chaine As String) As Boolean
Dim I As Integer
Dim TabCaracteres As Variant
Application.Volatile
TabCaracteres = Array("?", "/", "#", "%", "^")
Caracteres = False
For I = LBound(TabCaracteres) To UBound(TabCaracteres)
If InStr(1, Chaine, TabCaracteres(I), vbTextCompare) > 0 Then Caracteres = True
Next I
End Function