Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA

Sub Copie_DPGF()
Dim Chemin As String, Dossier As String, FichierXLSX As String
Dim ListFeuille As Range
Dim fin As Integer
Dim NomFeuille As Range

With Sheets("PDG") 'récupère la liste des noms de feuilles à créer depuis la feuille "PDG"
    fin = .Range("M" & .Rows.Count).End(xlUp).Row
    Set ListFeuille = .Range("M7:M" & fin)
    
    Dossier = .Range("L45")
    
End With
    
    For Each NomFeuille In ListFeuille
      
        Application.DisplayAlerts = False
            
        FichierXLSX = "\" & ListeFeuille & ".xlsx"
        Chemin = Dossier & FichierXLSX
      
      Worksheets(NomFeuille.Value).Copy
          With ActiveWorkbook
               .SaveAs Filename:=Chemin, FileFormat:=xlOpenXMLWorkbook
               .Close SaveChanges:=False
          End With

    Next NomFeuille
 
    Application.DisplayAlerts = True

End Sub