Sub Export_2()
Dim i&, j&, k&, x&, L&, T(), Plg(), LstRng As Range
With Sheets("Feuil1")
Set LstRng = .Cells(Rows.Count, 1).End(xlUp).Offset(0, 3)
x = WorksheetFunction.Sum(.Range("D2:" & LstRng.Address))
Plg = .Range(.Cells(2, 1), LstRng).Value
End With
If x = 0 Then Exit Sub
ReDim T(1 To x, 1 To 3)
For i = LBound(Plg, 1) To UBound(Plg, 1)
For j = 1 To Plg(i, 4)
L = L + 1
For k = 1 To 3
T(L, k) = Plg(i, k)
Next k
Next j
Next i
With Sheets("Feuil2")
.Range(.Cells(2, 1), .Cells(Rows.Count, 3).End(xlUp)(2)).ClearContents
.Cells(2, 1).Resize(L, 3) = T
End With
End Sub