Sub test()
Dim I&, Wkb As Workbook, Benef$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\Modèle.xlsx"
Set Wkb = ActiveWorkbook
With ThisWorkbook.Sheets("Feuil1")
For I = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Benef = .Cells(I, 1).Value
Wkb.Sheets(1).Range("$B$2").Value = Benef
Wkb.SaveAs ThisWorkbook.Path & "\" & Benef & ".xlsx"
Next I
End With
Wkb.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub