Renommer classeur en fonction valeur cellule

bonjour

j'ai encore besoin de vous

j'ai exporter 2 feuilles d'un fichier A vers un nouveau classeur qui s'intitulera "siege" je souhaite renommer ce classeur "siege en fonction de la valeur d'une cellule c2 de la feuille nommé "Oriclef"

j'avais réussi mais le problème et qu'il me créer un second classeur portant le nom de la cellule et je souhaite vraiment un seul classeur et dans le bon répertoire
voici mon code
Sub exportsiege()
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\courbois_f\Documents\ECRITURE EXCEL LACTO\derniere version\siege.xls"
Dim objWbk As Workbook
Dim objSht1 As Worksheet, objSht2 As Worksheet

' Selection de la feuille source du classeur actif par son nom.
' (donnée)
Set objSht1 = ThisWorkbook.Worksheets("cheptel")
' ouvrir classer de destination
Workbooks.Open Filename:=ThisWorkbook.Path & "\siege.xls"
' Classeur destination
Set objWbk = Application.Workbooks("siege.xls")

' Feuille destination
Set objSht2 = objWbk.Worksheets("Feuil1")

' Copie de la feuille.
objSht1.Copy before:=objSht2

Set objSht1 = ThisWorkbook.Worksheets("oriclef")

' Classeur destination
Set objWbk = Application.Workbooks("siege.xls")

' Feuille destination
Set objSht2 = objWbk.Worksheets("Feuil1")

' Copie de la feuille.
objSht1.Copy before:=objSht2


End Sub

merci de votre aide