Supprimer accentués

Supprimer les caractères parasites d'une chaîne

Pour y voir un peu plus clair (peut-être ...)
 

Function EpurerTexte(strTexte As String) As String
    Dim Resultat As String
    Dim Signe As String    '* 1
    Dim Position As Integer

    If Len(strTexte) > 0 Then
        For Position = 1 To Len(strTexte)
            Signe = Mid$(strTexte, Position, 1)
            If (Signe >= "A" And Signe <= "Z") _
               Or (Signe >= "a" And Signe <= "z") _
               Or (Signe >= "0" And Signe <= "9") Then
                Resultat = Resultat & Signe
            End If
        Next Position
        EpurerTexte = Resultat
    End If

End Function