XL 2016 filtrer dans textbox avec sans accent

Option Compare Text
Private Sub TextBox1_Change()
  TextBox1.Value = MajSansAccent(TextBox1.Value)
  [A1].AutoFilter field:=1, Criteria1:=Me.TextBox1 & "*"
End Sub

Private Sub TextBox2_Change()
  TextBox2.Value = MajSansAccent(TextBox2.Value)
  [A1].AutoFilter field:=2, Criteria1:=Me.TextBox2 & "*"
End Sub
Sub annule()
ActiveSheet.ShowAllData
End Sub

Function MajSansAccent(ByVal Chaine$)
Const VAccent = "àáâãäåéêëèìíîïðòóôõöùúûü", VSsAccent = "aaaaaaeeeeiiiioooooouuuu"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = UCase(Chaine)
End Function