With Feuil1
x = .Range("a" & Rows.Count).End(xlUp).Row 'ancien nom 'nouveau nom
.Range("a2:a" & x).Name = Replace(.Range("a2:a" & x).Name, "Je_Vais_Mourir", "Bonne_Chance")
End With
'Ceci pour tout les noms inscrits dans le gestionnaire.
'Pour ajouter
With Feuil10
.Range("b2:b80000").Name = "Punaise_Cest_Trop_Long_A_Faire"
End With