Nommer une feuille sans caractéres spéciaux

Function Epure$(txt$)
txt = Left(Trim(txt), 31)
txt = Replace(Replace(txt, "/", "#"), "\", "#")
txt = Replace(Replace(txt, "*", "#"), "?", "#")
Epure = Replace(Replace(txt, "[", "#"), "]", "#")
End Function

Option Explicit
Sub Nomme_Feuille()
Dim Cpt As Long
Dim NbCar As Long
Dim Carac As String
Dim TitreFeuille As String


NbCar = Len(Cells(1, 1))
TitreFeuille = ""
For Cpt = 1 To NbCar
    Carac = Mid(Cells(1, 1).Value, Cpt, 1)
    If InStr("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", Carac) <> 0 Then
        TitreFeuille = TitreFeuille & Carac
    End If
Next Cpt
If Len(TitreFeuille) > 31 Then TitreFeuille = Left(TitreFeuille, 31)
ActiveSheet.Name = TitreFeuille
End Sub

Sub Nomme_Feuille()
n = 1
ncar = Len(Cells(1, 1))
NomNew = Epure$(Cells(1, 1))
ActiveSheet.Name = NomNew & " " & n
End Sub
Function Epure$(txt$)
txt = Left(Trim(txt), 28)
txt = Replace(Replace(txt, "/", "#"), "\", "#")
txt = Replace(Replace(txt, "*", "#"), "?", "#")
Epure = Replace(Replace(txt, "[", "#"), "]", "#")
End Function

NomNew = Epure(Cells(1, 1))