Affichez la liste des données

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