Sub copie_feuille()
Dim i As Byte, k As Byte, m As Byte, p As Byte
Application.Goto Sheets('feuil1').Range('A1')
For i = 5 To Range('a65536').End(xlUp).Row
nb_feuil = Sheets.Count
Sheets('type').Copy After:=Sheets(nb_feuil)
Sheets(nb_feuil + 1).Name = Sheets('feuil1').Cells(i, 1).Value
With Sheets(nb_feuil + 1)
For k = 1 To 4
.Cells(k, 2).Value = Sheets('feuil1').Cells(i, k + 2).Value
Next k
For m = 1 To 4
.Cells(m, 6).Value = Sheets('feuil1').Cells(i, m + 6).Value
Next m
For p = 1 To 5
.Cells(p, 16).Value = Sheets('feuil1').Cells(i, p + 10).Value
Next p
.Cells(7, 2).Value = Sheets('feuil1').Cells(i, 1).Value
.Cells(8, 2).Value = Sheets('feuil1').Cells(i, 2).Value
End With
Next i
End Sub