With Sheets("Facture") 'prend en compte l'onglet "Facture"
For i = d To f 'boucle du début à la fin
For j = 2 To 10
If Sheets("Clients").Cells(j, 1).Value = i Then
.Range("C8").Value = i 'renseigne la cellule C8
.PrintOut Copies:=1, Collate:=True 'imprime l'onglet
End If
Next j
Next i 'prochain client de la boucle
End With 'fin de la prise en compte de l'onglet "Facture"