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