Re,
A tester sur une copie de ton fichier !...
Cdlt.
Option Explicit
'----------------------------------------------------------
'D?but de chaine
'Ajout caract?re
Public Sub XXX_1()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
nm.Name = "x" & nm.Name
Next nm
End Sub
'Suppression caract?re
Public Sub XXX_11()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
nm.Name = Left(nm.Name, Len(nm.Name) - 1)
Next nm
End Sub
'----------------------------------------------------------
'Fin de cha?ne
'Ajout caract?re
Public Sub XXX_2()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
nm.Name = nm.Name & "x"
Next nm
End Sub
'Suppression caract?re
Public Sub XXX_22()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
nm.Name = Right(nm.Name, Len(nm.Name) - 1)
Next nm
End Sub