Sub atest()
Dim i&
Dim FDest As Worksheet
Dim EnTete
Sheets("Liste_entetes").Rows(1).Copy Sheets("[B]1[/B]").Cells(1, 1)
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]2[/B]").Cells(1, 1)
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]3[/B]").Cells(1, 1)
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]4[/B]").Cells(1, 1)
...etc...
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]20[/B]").Cells(1, 1)
With Sheets("atrier")