Sub GENERATION()
For Each c In Range("A2:A8")
i = c.Row
nom = Cells(i, 1).Value
prenom = Cells(i, 2).Value
Date = Cells(i, 3).Value
nomdefichier = Cells(i, 4).Value
fname = "" & nomdefichier & ".xls"
Workbooks.Open Filename:="template.xlt"
With Workbooks("template.xlt").Worksheets("Sheet1")
.Range("B3").Value = nom
.Range("E3").Value = prenom
.Range("H3").Value = Date
End With
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.Close
Next c
End Sub