Copier des cellules x fois

Bonjour à tous

Je dispose d'un fichier excel sur lequel je bloque depuis un certains temps ...

J'ai une liste de date en colonne B, je souhaite copier chaque date 5 fois dans la colonne C

Ex: Colonne B Colonne C

29/08/16 29/08/16

30/08/16 29/08/16

... 29/08/16

29/08/16

29/08/16

30/08/16

....

J'ai tenté de créer un code VBA, la macro copie bien les dates 5 fois mais uniquement les 5 premières valeurs

Pouvez-vous m'aider, pour que la macro copie toutes les dates présentes dans la colonne B 5 fois?

Nb: le nombre de date dans la colonne B est variable

Voici mon code actuel:

Option Explicit

Sub Rectangle1_Cliquer()

Dim j As Integer, i As Integer

For j = 1 To Range("A65000").End(xlUp)

For i = 1 To Cells(j, 1).Value

Cells(j, 2).Copy Destination:=Range("C" & Range("C65000").End(xlUp).Row + 1)

Next i

Next j

End Sub

Merci d'avance pour votre aide

Floyd

Bonjour

Essaie ce code :

Sub Reporter5fois()
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Range("A" & i).Copy Range("B" & i * 5 - 4 & ":B" & 5 * i)
    Next i
End Sub

Bye !