Sub test()
Dim WbFichier As Workbook, ListeNumMag As Variant, Chemin As String, Nom As String
Chemin = "[B]C:\Dossier\[/B]"
Set WbFichier = GetObject(Chemin & "BUDGET_XX.xls")
Nom = WbFichier.Name
With WbFichier.Sheets("Liste")
ListeNumMag = .Range(.[A5], .[A65536].End(xlUp))
End With
WbFichier.Close
For i = LBound(ListeNumMag, 1) To UBound(ListeNumMag, 1)
FileCopy Chemin & Nom, Chemin & "BUDGET_" & ListeNumMag(i, 1) & ".xls"
Next
End Sub