Sub TotAutreFeuille()
Set ws1 = Sheets("BDD")
Set ws2 = Sheets("Dubliquer ici")
LigneTot = ws1.[C2].CurrentRegion.Rows.Count
Lig = 2
For i = 2 To LigneTot
Quantite = ws1.Cells(i, "D")
Poids = ws1.Cells(i, "C")
CodeArt = ws1.Cells(i, "A")
For j = 1 To Quantite
ws2.Cells(Lig, "B") = Poids
ws2.Cells(Lig, "A") = CodeArt
Lig = Lig + 1
Next
Next
End Sub