Supprimer caractères spéciaux

Public Function CharAllowed(ByVal s As String) As String
    ' 2020-02-20    MN  Création
 
    Dim s1 As String, i As Integer, s2 As String
 
    If Len(s) > 0 Then
          s = ChaineSansAccent(s)
 
        s1 = "0123456789abcçdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        s2 = ""
        For i = 1 To Len(s)
            If InStr(1, s1, CStr(Mid(s, i, 1)), 0) = 0 Then
                Debug.Print "Le caractère '" & Mid$(s, i, 1) & "' n'est pas autorisé"
            Else
                s2 = s2 + Mid(s, i, 1)
            End If
        Next i
        CharAllowed = s2
    End If
 
End Function

Private Function ChaineSansAccent(ByVal s As String) As String
  ' 2020-02-20   MN
    Dim s1 As String, s2 As String, i As Long
 
  s1 = "àâáãäåéèêëïîìíöôðòóüûùúñçÿÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜ"
    s2 = "aaaaaaeeeeiiiiooooouuuuncyAAAAAAEEEEIIIIOOOOOUUUU"
    For i = 1 To Len(s1)
        s = Replace(s, Mid$(s1, i, 1), Mid$(s2, i, 1))
    Next i
    ChaineSansAccent = s
End Function

UPDATE Table1 SET Champ1 = CharAllowed ([Champ1] )