L'objectif, au final, est que tes feuilles s'appellent à nouveau Feuille1, Feuille2, Feuille3, etc. C'est bien ça ou je n'ai toujours pas compris ?
Si c'est ça, la procédure ci-dessous t'aidera (à tester avant sur une copie de sauvegarde, bien sûr)
Sub Renomme()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
Feuille.Name = "Feuille" & Feuille.Index
Next Feuille
End Sub