XL 2010 copier/coller ligne en fonction d'une valeur

[erwanhavre]

Bonsoir à tous
J'ai encore besoins de vous ...
Vous trouverez en pj le résultat espéré
Je m'explique l'onglet "commande" contient un résumé de commande, j'ai besoin d'éclater celle-ci en autant de ligne qu'il y à dans la colonne en jaune dans la feuille "repart"
en numérotant 1/3, 2/3 etc
est ce réalisable à votre avis ?

MERCIII je ne le dirais jamais assez

 

[Hieu]

Salut,
Une idée :

Sub mlkj()
Application.ScreenUpdating = False
Set c = Sheets("commande")
Set r = Sheets("repart")
ligne = 2
der = c.Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To der
    nb = c.Range("o" & i)
    c.Range("a" & i & ":t" & i).Copy
    For k = 1 To nb
    r.Range("a" & ligne & ":t" & ligne).PasteSpecial
    r.Range("o" & ligne) = "'" & k & "/" & c.Range("o" & i)
    ligne = ligne + 1
    Next k
Next i
Application.CutCopyMode = False
End Sub

 

[erwanhavre]

un seul mot : TOP
merci Hieu