Sub es()
Dim t(), t1(), x As Long, i As Long, k As Long, z As Long
With Feuil1
t = .Range("a2:e" & .Cells(Rows.Count, 1).End(xlUp).Row)
x = 1
For i = 1 To UBound(t)
For z = 1 To t(i, 5)
ReDim Preserve t1(1 To 5, 1 To x)
For k = 1 To 5
t1(k, x) = t(i, k)
Next k: x = x + 1: Next z: Next i
End With
Feuil2.[a2].Resize(x - 1, 5) = Application.Transpose(t1)
Erase t, t1
End Sub