Sub MACRO1()
Dim Dl&, i&, f As Worksheet
Set f = Sheets("tableau De Bord")
Dl = f.Cells(Rows.Count, 1).End(xlUp).Row
f.Activate
On Error Resume Next
For i = 7 To Dl
Sheets("modele").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Range("C2") = Right(f.Cells(i, "A"), 1)
.Name = f.Cells(i, 1)
.Range("J1:J2") = Application.Transpose(Array(f.Cells(i, "B"), f.Cells(i, "C")))
.Range("I3") = Year(f.Cells(i, "D"))
End With
Next
End Sub