Sub Copie()
Dim C As Range, Chemin As String
Application.ScreenUpdating = False
Chemin = "D:\Mes documents\tests\" '***A adapter
Workbooks.Open Chemin & "DOSSIER.xlsx" '***A adapter
With Feuil1
For Each C In .Range("a1:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
If Dir(Chemin & C & ".xlsx") = "" And C <> "" Then
ActiveWorkbook.SaveCopyAs Chemin & C & ".xlsx"
End If
Next
End With
Workbooks("DOSSIER.xlsx").Close , False
End Sub