Sub es()
Dim t(), t1(), x As Long, i As Long, k As Long, z As Long
t = Feuil1.Range("a31:g40")
For i = 1 To UBound(t)
For z = 1 To t(i, 2)
x = x + 1
ReDim Preserve t1(1 To 7, 1 To x)
For k = 1 To 7
t1(k, x) = t(i, k)
Next k: Next z: Next i
Feuil2.[a2].Resize(x, 7) = Application.Transpose(t1)
End Sub