Sub mjkl()
Set libelle = Sheets("Feuil1").Range("b4")
Set code = Sheets("Feuil1").Range("c4")
Set quantite = Sheets("Feuil1").Range("d4")
i = 1
j = 1
Do
If quantite.Offset(i, 0) <> 0 Then
Sheets("Facture").Range("b3").Offset(j, 0) = libelle.Offset(i, 0)
Sheets("Facture").Range("c3").Offset(j, 0) = code.Offset(i, 0)
Sheets("Facture").Range("d3").Offset(j, 0) = quantite.Offset(i, 0)
j = j + 1
End If
i = i + 1
Loop Until libelle.Offset(i, 0) = ""
End Sub