renommer une feuille devis en facture

[grisan29]

bonjour a tous
dans le fichier joint ici https://www.excel-downloads.com/threads/creer-une-facture-sur-un-devis.205434/
j'ai fait un ajout depuis donc maintenant je peux ouvrir une feuille devis qui est stockée dan c:\sauvegarde
mais cette feuille qui s'ouvre je voudrai pouvoir y importer de quoi en faire une facture, changer son apellation et son entête du bas j'ai ce code

rivate Sub CommandButton5_Click()
Dim NomFiche$, Nom$, Lg%
Dim Classeur$, Client$
Dim Facture$
NomFiche = UserForm3.Label4.Caption
Classeur = Workbooks(1).Name

'---------------------- Pas de Sélection ---------------------------
If NomFiche = "" Then 'nom du dossier
    MsgBox "vous n'avez rien sélectionné: fin du programme"
    Exit Sub
End If
Lg = Len(NomFiche)
Nom = Left(NomFiche, Lg - 4) 'nom de la feuille
'-------------------- Nom Page --------------------------
Worksheets("classeur").Range("D1").Value.Copy _
Destination:=Workbooks(Nom).Worksheets("NomFiche").Range("D1")

'------------------ N° facture -------------------------
Workbooks(NomFiche).Worksheets(Nom).Range("D17").Copy _
Destination:=Workbooks(Nom).Worksheets("classeur").Range("D17")

'------------------------------------------------------
Unload Me
End Sub

mais j'ai du faire une betise car je ne peux importer du classeur le code qui est dans le bouton de l'usf mise en page
bon je vous joint le fichier modifier qui sera plus parlant que l'autre

Pascal