XL 2016 supprimer caractères spéciaux

Sub Test2()
    Dim cel As Range
    For Each cel In [A1:c10].Cells
        With CreateObject("VBScript.RegExp")
            .Global = True: .IgnoreCase = True
            .Pattern = "[^\w]"
            cel.Value = .Replace(cel.Text, "")
        End With
    Next
End Sub

Sub Epure()
Dim tablo, E, t, i&
tablo = Array("Ã", "©", "Ã", "¨", "‰", "«", "¯") 'caractères spéciaux
E = Range("A1:A2", Range("A" & Rows.Count).End(xlUp))
For Each t In tablo
  For i = 1 To UBound(E)
    E(i, 1) = Application.Trim(Replace(E(i, 1), t, " "))
  Next
Next
E(1, 1) = "Epuré" 'si ligne de titres
[B1].Resize(UBound(E)) = E
End Sub

Private Function machette(ch As String) As String
  Dim k As Integer, titi
  titi = Split(StrConv(ch, vbUnicode), Chr(0))
  For k = 0 To UBound(titi) - 1
    If titi(k) Like "[!A-z]" Then titi(k) = Chr(1)
  Next
  machette = Replace(Join(titi, ""), Chr(1), "")
End Function

'----------------------------------------------------------------------------------------------
'---------------- Fonction sur le net
'---------------- par Marcos Rieper
'---------------- https://www.guiadoexcel.com.br/converter-utf8-para-iso-8859-1-ascii-ansi/
'---------------- Vidéo de présebntation + Code VBA
'----------------------------------------------------------------------------------------------

Function fnConverterUTF8(ByVal Texto_para_converter As String)
   Dim l As Long, sUTF8 As String
   Dim iChar As Integer
   Dim iChar2 As Integer

   For l = 1 To Len(Texto_para_converter)
      iChar = Asc(Mid(Texto_para_converter, l, 1))
      If iChar > 127 Then
         If Not iChar And 32 Then
         iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
         sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2)))
         l = l + 1
      Else
         Dim iChar3 As Integer
         iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
         iChar3 = Asc(Mid(Texto_para_converter, l + 2, 1))
         sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63))
         l = l + 2
      End If
         Else
         sUTF8 = sUTF8 & Chr$(iChar)
      End If
   Next l
   fnConverterUTF8 = sUTF8
End Function