Sub imprimeJJ()
Dim C As Range, i&
With Sheets("masque edition")
For Each C In Sheets("List").Range("a2:a" & Sheets("list").Cells.Find("*", , , , xlByRows, xlPrevious).Row)
For i = 1 To C(, 4)
.[b10] = C
.[b12] = C(, 2)
.[b14] = C(, 3)
.PrintPreview 'ligne a supprimer apr?s test
'.PrintOut ' ligne a valider apr?s test
Next
Next
End With
End Sub