Public Function StripSpecialChars(ByVal iString As String, Optional _
CompareMethod As VbCompareMethod = vbTextCompare, Optional Lookup As String _
= "àâäéèêëïùç", Optional ReplaceBy As String = "aaaeeeeiuc") As String Dim i As Long
' dans le doute on remplace pas on supprime le caractère If Len(ReplaceBy) < Len(Lookup) Then ReplaceBy = ""
For i = 1 To Len(Lookup)
' on remplace tous les caractères de Lookup 1 par 1 dans iString iString = Replace(iString, Mid(Lookup, i, 1), (IIf(ReplaceBy = "", "", _
Mid(ReplaceBy, i, 1))), , , CompareMethod)
Next i
StripSpecialChars = iString
End Function