Copier/coller le contenu variable d'une cellule dans des lignes successives

[KOK]

Bonjour !

On essaie désespéremment de coder une macro depuis 2 jours.
ON souhaite créer une liste en collant le contenu d'une cellule. Sachant que son contenu est variable.
On vous a mis deux images pour mieux comprendre et seront plus explicites que de nombreux discours !

step 1
step 2
qu'on peut répéter n fois

Le dernier codage qu'on a essayé est celui-ci :
Sub Valider()
Feuil1.Range("C23").Select
Feuil1.Range("C23").Copy
Feuil1.Range("L16").PasteSpecial

Dim Rang As Variant
Dim DerLig As Integer

Sheets("Feuil1").Activate
Rang = Range("L15")
Sheets("Feuil1").Activate
DerLig = Range("C23", Range("A65535").End(xlUp)).Rows.Count - 1
For i = LBound(Rang, 2) To UBound(Rang, 2)
Cells(2 + DerLig, i) = Rang(1, i)
Next i
End Sub


PLEASE HELP !!!!
Bisous