Sub Nouveau_Articlesbudgétaires()
Dim chemin As String, i As Range, dl%
dl = Range("G" & Rows.Count).End(xlUp).Row
chemin = ActiveWorkbook.Path & "\"
For Each i In Range("G2:G" & dl)
Sheets("Modele").Copy
ActiveWorkbook.SaveAs chemin & i.Value, 52
ActiveWorkbook.Close True
Next i
End Sub