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