Option Explicit
Sub report()
Dim LigD As Long, LigR As Long, Col As Integer
Dim NbArt As Integer, NumArt As Integer
Dim Manche As String, Taille As String, Produit As String, Ref As String
Sheets("Resultat").Cells.ClearContents
For LigD = 3 To Sheets("donnees").Range("A65536").End(xlUp).Row
For Col = 3 To 7
NbArt = Sheets("donnees").Cells(LigD, Col).Value
For NumArt = 1 To NbArt
LigR = Sheets("Resultat").Range("B" & Rows.Count).End(xlUp).Row
Sheets("Resultat").Range("B" & LigR + 1) = Sheets("donnees").Range("A" & LigD)
' Taille
Taille = Sheets("donnees").Cells(2, Col)
Sheets("Resultat").Range("C" & LigR + 1) = Taille
' Couleur
Sheets("Resultat").Range("D" & LigR + 1) = Sheets("donnees").Range("H" & LigD)
' Manche
Manche = Sheets("donnees").Range("I" & LigD)
Sheets("Resultat").Range("E" & LigR + 1) = Manche
' Produit
Produit = Sheets("donnees").Range("J" & LigD)
Sheets("Resultat").Range("F" & LigR + 1) = Produit
' Référence
Ref = Sheets("donnees").Range("K" & LigD) & "/" & Manche & "/" & Taille & "/" & Produit
Sheets("Resultat").Range("J" & LigR + 1) = Ref
Next NumArt
Next Col
Next LigD
Sheets("Resultat").Select
End Sub