Nommer une feuille selon cellule autre classeur

Bonjour la communauté !

J'ai besoin d'un petit coup de pouce sur vba, je souhaite récupérer la valeur qui se trouve dans une cellule, en l'occurence B3, pour lui donner le nom d'une nouvelle feuille se trouvant dans un autre classeur.

Je vous mets ce que j'ai déjà fait :

Sub piece_1()

Dim Chemin As String, Repertoire As String, dateinter As String, i As Integer

Chemin = ActiveWorkbook.Path

Sheets("Critères de sélection").Activate

dateinter = InputBox("Quelle est la date d'intervention ?" & Chr(10) & "FORMAT : 01011900")

Range("A5") = dateinter

Repertoire = InputBox("Quel est le nom du client ?")

MkDir (Chemin & "\" & Repertoire & "\") & Range("A5")

'**********************************************************************************************************************************************

'Le fichier d'archivage va être crée dans un nouveau répertoire dans le dossier du client en question

'**********************************************************************************************************************************************

Workbooks.Add

ActiveWorkbook.SaveCopyAs (Chemin & "\" & Repertoire & "\" & dateinter & "\" & "Liste pièces.xlsx")

'Workbooks.Open (Chemin & "\" & Repertoire & "\" & dateinter & "\" & "Liste pièces.xlsx")

Workbooks("Logiciel maintenance prédictive").Sheets("Tableau final").Activate

Nom = Range("B3")

Workbooks.Open (Chemin & "\" & Repertoire & "\" & dateinter & "\" & "Liste pièces.xlsx")

'Sheets("Feuil1").Select

'Sheets("Feuil1").Name = Workbooks("Logiciel maintenance prédictive").Sheets("Tableau final").Range("B3")

ActiveWorkbook.Sheets("Feuil1").Name = Nom

Je vous remercie