Copie de lignes en fonction d'une valeur

Bonjour à tous,

J'imagine que cela va vous paraître bête, mais je suis bloqué sur une macro.

Le but de cette macro est de copier N fois les lignes en fonction d'une valeur trouvé dans la colonne B

J'ai joint une image de ce que cela doit réaliser

Pouvez vous m'aider ?

Merci d'avance

Bonjour

Code à essayer

Sub copie()
Dim i As Integer, lg As Integer
Dim nb As Byte
lg = 1
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    nb = 0

    Do Until nb = Range("B" & i)
        Range("A" & i & ":H" & i).Copy Range("j" & lg)
        nb = nb + 1
        lg = lg + 1
    Loop
Next i
End Sub

si ok et terminé, merci de cliquer sur le v vert à coté du bouton EDITER pour cloturer le fil lors de votre réponse.

Cordialement

Super, Merci