Bonsoir,
pour info, une autre manière, qui inclut toutes les données dans la colonne C, avec le nombre de répétitions en colonne D
le code :
Sub recopie()
Dim DerLig As Long, cel As Range
Range("C8:C" & [C65000].End(xlUp).Row).Name = "base"
For Each cel In [base]
DerLig = IIf([H65000].End(xlUp).Row + 1 < 8, 8, [H65000].End(xlUp).Row + 1)
Cells(DerLig, 8).Resize(cel.Offset(, 1), 1).Value = cel
Next cel
End Sub
Le fichier :
https://www.excel-pratique.com/~files/doc/repetition_1_1.zip