XL 2010 Trier, en VBA, un Array par ordre alphabétique

Function DeAccent(s As String) As String
Dim Matches As Object
Dim Match As Object
Dim Reg As Object
    Set Reg = CreateObject("VBScript.RegExp")
Const sAccents As String = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const sNoAccents As String = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
'
      Reg.MultiLine = True: Reg.IgnoreCase = False: Reg.Global = True: Debug.Print Reg.test(s)
      Reg.Pattern = "(.)"
      Reg.Pattern = Mid(Reg.Replace(sAccents, "|$1"), 2)
      Set Matches = Reg.Execute(s)
          For Each Match In Matches
            s = Replace(s, Match, Mid(sNoAccents, InStr(1, sAccents, Match, 0), 1))
          Next Match
' libération d'objets
    Set Matches = Nothing
    Set Match = Nothing
    Set Reg = Nothing
  DeAccent = s
End Function