Sub caca()
c = 3
Cells(4, 9) = "caca"
For i = 4 To Range("D65536").End(xlUp).Row
For y = 1 To Cells(i, 5)
Cells(c + y, 10) = Cells(i, 4)
Next y
c = c + Cells(i, 5)
Next i
End Sub
Sub caca()
Mise_EnForme
c = 3
Cells(4, 9) = ""
For i = 4 To Range("D65536").End(xlUp).Row
For y = 1 To Cells(i, 5)
Cells(c + y, 10) = Cells(i, 4)
Next y
c = c + Cells(i, 5)
Next i
End Sub
Sub Mise_EnForme()
If ActiveCell.Range("E4").Select Then
Range("J4:J25").ClearContents
End If
End Sub