Creation automatique classeur apres ajout ligne dans tableau

Sub CreeCasseur()
Dim Repertoire As String, Nom As String
Dim DerLig As Long, Boucle As Long
    'Initialiser avec le chemin exact de l'emplacement des classeurs
    Repertoire = "C:\Rep1\Rep2\"
    DerLig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    For Boucle = 1 To DerLig
        Nom = Cells(Boucle, 1).Value
        If Dir(Repertoire & Nom) = "" Then
            'le classeur n'existe pas
            Workbooks.Add
            'Ici copier les données de ThisWorkBook souhaitées
            'Sur ActiveWorkBook.Sheets("Feuil1")
            ActiveWorkbook.SaveAs (Repertoire & Nom)
            ActiveWorkbook.Close
        End If
    Next Boucle
End Sub