Copie de ligne et repetition

Bonjour à tous,

J’ai besoin de votre science !

Question surement très simple pour vous. J’ai une liste dans l’onglet « Liste » qui se compose de données L1 à L10 que je souhaiterais copier dans l’onglet « BDD ». La subtilité qui m’amène à vous est que je souhaite les coller à partir de B2 dans « BDD » et les répéter 5 fois avant de copier la valeur L suivante encore 5 fois, etc … Mon fichier en PJ parle de lui-même

Merci d’avance pour votre aide.

Jonathan

Bonjour

Code Module    
 Sub Transfert()
    Dim Cel As Range
    Range("A2", Range("A2").End(xlDown)).Select
   For Each Cel In Range("A2", Range("A2").End(xlDown))
 i = Cel.Value
  If Cel = "" Then Exit Sub
Sheets("BDD").Activate
Range("b" & [b65000].End(xlUp).Row).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.Offset(4, 0)).Select
Selection = i
    Next Cel
Range("B1").Select
    End Sub

Cordialement