Renommer une feuille externe sous un autre nom

bonjour,

j'ai un fichier initial BASE avec une feuille nommé Résultat que j'enregistre dans un fichier de destination (ici STOCK)

la feuille du fichier de destination STOCK s'appelle donc aussi Résultat.

Comment puis changer le nom de la feuille de destination?

exemple:

fichier initial BASE avec nom de feuille Résultat

fichier de destination STOCK avec nom de feuille Résultat autre par exemple Feuil1

' Enregistrer sous

Sheets("Résultat").Activate

Dim Chemin As String, NomFichier As String

Dim extension As String

Chemin = "C:\Users\pc-ben\Documents\tarif\"

extension = ".xlsm"

On Error Resume Next

MkDir Chemin

On Error GoTo 0

NomFichier = "STOCK" & extension

ActiveSheet.Copy

With ActiveWorkbook

.SaveAs Filename:=Chemin & NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

.Close

End With

Merci

' Enregistrer sous

Application.DisplayAlerts = False

Sheets("Résultat").Activate

Dim Chemin As String, NomFichier As String

Dim extension As String

Chemin = "C:\Users\pc-ben\Documents\tarif\"

extension = ".xlsm"

On Error Resume Next

MkDir Chemin

On Error GoTo 0

NomFichier = "STOCK" & extension

ActiveSheet.Copy

With ActiveWorkbook

.SaveAs Filename:=Chemin & NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Sheets(1).Name = "Feuil2"

.Close SaveChanges:=True

End With

Application.DisplayAlerts = True

ca marche