c'est évident car j'ai choisi de renommer la feuille Feuil4 que tu renomes, donc quand tu relances la procédure la feuil4 n'existe plus, par contre il construit la feuil5
Il faut donc généraliser mon code
Sheets('Feuil1').Select
Sheets.Add
I = Sheets.Count
Sheets('Feuil' & I).Select
Sheets('Feuil' & I).Name = Sheets('Feuil1').Range('A1').Value
théoriquement ça devrait remarcher