Sub Duplique()
Dim Ligne As Integer
For Ligne = Range("B30").End(xlDown).Row To 31 Step -1
Rows(Ligne + 1 & ":" & Ligne + Cells(Ligne, 2).Value - 1).Insert Shift:=xlDown
Range("A" & Ligne & ":G" & Ligne).Resize(Cells(Ligne, 2).Value).FillDown
Next
End Sub
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