imprimer en couleur qu'une seule feuille

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[COLOR="Red"]If ActiveSheet.Name <> "tableau de bord" Then Exit Sub[/COLOR]
On Error Resume Next 'au cas où la feuille active n'est pas une feuille calcul
ActiveSheet.Copy Before:=ActiveSheet
Set F = ActiveSheet
Cells.Interior.ColorIndex = xlNone
Application.OnTime Now, "Supprime"
End Sub

Public F As Object 'mémorise la feuille

Sub Supprime()
Application.DisplayAlerts = False
On Error Resume Next
F.Delete
Set F = Nothing
End Sub