Tu peux essayer ceci (je suis pas bien sur que c'est ce que tu veux mais bon..)
Sub essai()
Sheets("NomDeLaFeuilleACopier").Copy After:=Sheets(nbFeuille)
Sheets("NomDeLaFeuilleACopier(nbFeuille+1)").Select
Sheets("NomDeLaFeuilleACopier(nbFeuille+1)").Name = "NouveauNom"
End Sub