Sauvegarde Classeur avec 3 cellules différentes

Sub Sauvegarde()
   
    Dim NomFichier           As String
    Dim Chemin           As String
    Dim NouveauFichier         As Workbook
   
    Application.ScreenUpdating = False
   
    Chemin = Range("N1").Value
   
    NomFichier = Range("K9").Value & "_" & Format(Range("C4").Value, "dd.mm.yy") & "_" & Range("D5").Value & ".xlsx"
   
    Set NouveauFichier = Workbooks.Add
   
    ThisWorkbook.ActiveSheet.Copy Before:=NouveauFichier.Sheets(1)
   
    If Dir(Chemin & "\" & NomFichier) <> "" Then
   
        MsgBox "Le fichier " & Chemin & "\" & NomFichier & " existe déjà!"
       
    Else
       
        NouveauFichier.SaveAs Filename:=Chemin & "\" & NomFichier
       
    End If
   
    Application.DisplayAlerts = False
   
    NouveauFichier.Worksheets(2).Delete 'Supprime la feuille vide
   
    ActiveSheet.DrawingObjects.Delete 'Efface le bouton
    NouveauFichier.Close
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
   
End Sub

Sub Sauvegarder()
On Error Resume Next 'si le chemin n'est pas correct ou s'il y a des caractères interdits
With ThisWorkbook
.SaveCopyAs [N1] & "\" & [K9] & "_" & Format([C4], "dd.mm.yy") & "_" & [D5] & Mid(.Name, InStrRev(.Name, "."))
End With
End Sub