XL 2016 Devis / Facture avec bouton de Sauvegarde en .pdf + archivage

' Bouton "Validation devis"
Sub validation_devis_Click()
'ote la protection de la feuille
ActiveSheet.Unprotect "nom_de_mon_fichier"

'je supprime le reste qui n'a rien a voir pour simplifier le code
'enregistre le devis dans le fichier "Archive_devis_sms.xls"
Dim fichier_data As Workbook
Dim ws_data As Worksheet

Dim fichier_Archive_devis_nom_de_mon_fichier As Workbook
Dim onglet As Worksheet
Dim ws_liste As Worksheet
Dim chemin_Archive_devis_nom_de_mon_fichier As String

'identifier chemin fichier archive devis !!!! ATTENTION AMODIFIER QUAND DEPLACEMENT DU FICHIER !!!
chemin_Archive_devis_nom_de_mon_fichier = "C:\Users\.........\Archive_Devis_nom_de_mon_fichier.xlsx"

'identifier les fichiers et onglets
Set fichier_data = ActiveWorkbook
Set ws_data = fichier_data.Worksheets("Devis")

Set fichier_Archive_devis_nom_de_mon_fichier = Application.Workbooks.Open(chemin_Archive_devis_nom_de_mon_fichier)
Set ws_liste = fichier_Archive_devis_nom_de_mon_fichier.Worksheets("Liste")

'copier coller l'ongler après l'onglet Liste
ws_data.Copy after:=ws_liste

'copie coller les dates en enlevant la formule aujoudhui()
fichier_Archive_devis_nom_de_mon_fichier.Worksheets(2).Range("h2:h3").Copy
fichier_Archive_devis_nom_de_mon_fichier.Worksheets(2).Range("h2:h3").PasteSpecial Paste:=xlPasteValues

'efface les boutons inutiles dans ce fichier
fichier_Archive_devis_nom_de_mon_fichier.Worksheets(2).Shapes.Range(Array("Quitter_devis")).Select
    Selection.Delete
fichier_Archive_devis_nom_de_mon_fichier.Worksheets(2).Shapes.Range(Array("validation_devis")).Select
    Selection.Delete

'renommer l'onglet
fichier_Archive_devis_nom_de_mon_fichier.Worksheets(2).Name = Range("H1")

'sauvegarde avant de fermer le fichier Archive_Devis_nom_de_mon_fichier.xlsx
With ActiveWorkbook
    .Close savechanges:=True
End With

'enregistre au format PDF le devis
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        ignorePrintAreas:=False
        
reverouille la feuille après l'avoir vidée
 ActiveSheet.Protect "nom_de_mon_fichier"

'rend la feuille masquée
Sheets("Devis").Visible = xlSheetVeryHidden
Sheets("Accueil").Activate