Macro pour enregistrer sous, en fonction d'une cellule

NN = "C:\Users\To_Nom\Desktop"... 

Private Sub Workbook_Open() 'à l'ouverture du classeur
'si le nom du classeur est égal à la valeur de la cellule D9 de l'onglet "numero_de_lot" + ".xlsm", sort de la procédure
If Sheets("numero_de_lot").Range("D9:E10").Cells(1).Value & ".xlsm" = ThisWorkbook.Name Then Exit Sub
Sheets("numero_de_lot").Range("D9:E10").ClearContents 'efface le contenu de la cellule D9 de l'onglet "numero_de_lot"
Sheets("numero_de_lot").Range("D13:E14").ClearContents  'efface le contenu de la cellule D13 de l'onglet "numero_de_lot"
Sheets("PRODUCTION").Range("Données").ClearContents 'efface le contenu de la plage nommée "Données" de l'onglet "PRODUCTION"
Sheets("numero_de_lot").Select 'sélectionne l'onglet "numero_de_lot"
Range("D9").Select 'sélectionne la cellule D9
End Sub

Private Sub CommandButton1_Click() 'bouton "Terminer"
Dim NO As String 'déclare la variable NO (Nom Origine)
Dim NN As String 'déclare la variable NN (Nouveau Nom)
Dim CO As Workbook 'déclare la variable CO (Classeur Origine)
Dim NC As Workbook 'déclare la variable NC (Nouveau Classeur)

NO = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'définit le nom d'origine NO
NN = "C:\Users\To_Nom\Desktop" & "\" & Sheets("numero_de_lot").Range("D9:E10").Cells(1).Value & ".xlsm" 'définit le nou8veau non NN
Set CO = ThisWorkbook 'définit le classeur d'origine CO
CO.SaveAs (NN) 'enregistre sous le classeur d'origine
Set NC = ActiveWorkbook 'définit le nouveau classeur NC
Workbooks.Open (NO) 'ouvre le classeur d'origine
NC.Close SaveChanges:=True 'ferme le nouveau classeur NC
End Sub

Private Sub CommandButton1_Click() 'bouton "Terminer"
Dim NN As String 'déclare la variable NN (Nouveau Nom)

NN = "C:\Users\Ton_Nom\Desktop" & "\" & Sheets("numero_de_lot").Range("D9:E10").Cells(1).Value & ".xlsm" 'définit le nouveau non NN
Thisworkook.SaveAs (NN) 'enregistre sous le classeur d'origine
ActiveSheet.Shapes.Range(Array("CommandButton1")).Select 'sélectionne le bouton "Terminer"
Selection Delete 'supprime le bouton "Terminer"
ActiveWorkbook.Save 'sauve le classeur
End Sub

Private Sub CommandButton1_Click() 'bouton "Terminer"
Dim NN As String 'déclare la variable NN (Nouveau Nom)

NN = "C:\Users\Ton_Nom\Desktop" & "\" & Sheets("numero_de_lot").Range("D9:E10").Cells(1).Value & ".xlsm" 'définit le nouveau non NN
ThisWorkbook.SaveAs (NN) 'enregistre sous le classeur d'origine
ActiveSheet.Shapes.Range(Array("CommandButton1")).Select 'sélectionne le bouton "Terminer"
Selection.Delete 'supprime le bouton "Terminer"
ActiveWorkbook.Save 'sauve le classeur
End Sub