Sub Imprimer_Factures()
Dim rgFacture As Range, rgElem As Range
With Sheets("facture")
Set rgFacture = Range("liste")
For Each rgElem In rgFacture
If Len(rgElem.Value) > 0 Then
.Range("b5").Value = rgElem.Value
.Calculate
' .PrintOut ' pour imprimer
.PrintPreview ' pour aperçu
End If
Next rgElem
End With
End Sub