nommé classeur via un autre classeur

Option Explicit
Sub EnregistrerClasseurs()
Dim Repertoire As String, NomClasseur As String
Dim Derlig As Integer, i As Integer, Chemin As String
' Désactivation de l'affichage
Application.ScreenUpdating = False
' Ici chemin du classeur actif contenant la macro
Repertoire = ThisWorkbook.Path & "\"
' Boucle sur les noms contenus dans la colonne A
With Sheets("Base")
Derlig = .Range("A65536").End(xlUp).Row
For i = 1 To Derlig
' Définition du nom du classeur
NomClasseur = .Cells(i, 1) & ".xls"
' Création du classeur d'après la feuille "modèle"
With Sheets("Modele")
.Copy
End With
'Enregistrement du classeur
Chemin = Repertoire & NomClasseur
ActiveWorkbook.SaveAs Filename:=Chemin
ActiveWorkbook.Close
Next i
End With
End Sub