XL 2021 Sauvegarde onglet

Sub Sauv_ListeDeNoms()
Dim aaaa$, mm$, jj$, hh$, m$
Dim index$, chemin$, DateSauv$, Fichier1$, Fichier2$

    aaaa = Year(Date)
    mm = Format(Month(Date), "00")
    jj = Format(Day(Date), "00")
    hh = Format(Hour(Time), "00")
    m = Format(Minute(Time), "00")
    index = "Liste de Noms"
    chemin = ThisWorkbook.Path

    Sheets("Liste de Noms").Copy  ' Export de l'onglet ("Liste de Noms") du fichier à sauvegarder

    DateSauv = aaaa & ChrW(8260) & mm & ChrW(8260) & jj & "_" & hh & "h" & m
    Fichier1 = index & "_" & DateSauv & ".xlsx"
    Fichier2 = chemin & "\" & Fichier1

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Fichier2, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
    ActiveWindow.Close

End Sub

Sub SauvListeDeNoms()
   Sheets("Liste de Noms").Copy
   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Liste de Noms_" & _
      Format(Now, "yyyy" & ChrW$(8260) & "mm" & ChrW$(8260) & "dd-hh""h""mm"), _
      FileFormat:=xlOpenXMLWorkbook
   ActiveWorkbook.Close
   End Sub

Sub Sauv_ListeDeNoms()
    Dim WBK As Workbook, chemin$
    'bloque les alert et le rafraichissement d'ecran
    With Application: .DisplayAlerts = False: ScreenUpdating = False: End With
    
    'le chemin complet de destinnation
    chemin = ThisWorkbook.Path & "\Liste de Noms " & Replace(Format(Now, "yyyy / mm / dd_hh""h""mm"), "/", ChrW(8260))
    
    'copi l'onglet dans un nouveau classeur
    ThisWorkbook.Sheets("Liste de Noms").Copy
    
    'Enregistrement de ce nouveau classeur
    ActiveWorkbook.SaveAs Filename:=chemin, FileFormat:=xlOpenXMLWorkbook    'enregistre le nouveau classeur
    
    'fermeture de ce nouveau classeur
    ActiveWindow.Close
    
    'Ouf! Ouf! on laisse un peu Excel travailler
    DoEvents
    
    'maintenant reste le problème de l'instance d'excel sans fichier qui restait ouverte
    'quand on ferme le fichier de la macro
    'on va donc tester  combien il y a de classeurs ouverts
    'et selon le nombre 1 ou plus !!
    'on fermera juste le classeur sans enregistrer les modif
    'ou
    'on fermer"a l'"applic"ation excel directement
    
    'si tu veux fermer le classeur contenant la macro
    If Workbooks.Count > 1 Then    'si il y a d'autre classeur ouverts dans cet instance d'excel
        ActiveWindow.Close    'on le ferme sans enregistrer les modif
        Application.DisplayAlerts = True
    Else    'si il n'y a pas d'autre classeurs ouverts on ferme excel directement
        Application.Quit
    End If
End Sub