Sub transfert()
Dim f As Worksheet, dlhc&
Set f = Feuil6
With f
For Z = 16 To 33
dlhc = Feuil8.Cells(Rows.Count, 1).End(xlUp).Row + 1
If .Cells(Z, 1) <> "" Then
a = Array(.[B14].Value, CLng(.[F3]), .[A8].Value, .[F7].Value, .[F6].Value, .[A5].Value, .[G36].Value, .[G35].Value, .Cells(Z, 1), .Cells(Z, 6), .Cells(Z, 5) + 0)
For y = 1 To 11
Feuil8.Cells(dlhc, y) = a(y - 1)
Next y
Feuil8.Cells(dlhc, 14) = Feuil8.Cells(dlhc, 8) / Feuil8.Cells(dlhc, 7)
End If
Next Z
End With
End Sub