Sub ImprMois()
'Bouton Imprimer factures/mois
For Each sh In Sheets
If sh.Tab.Color = 6750105 Then sh.PrintPreview
Next
End Sub
Sub ImprTrim()
'Bouton Imprimer factures/trimestres
For Each sh In Sheets
If sh.Tab.Color = 16777062 Then sh.PrintPreview
Next
End Sub