Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Feuil1.[A1]
.Font.Color = RGB(255, 255, 255)
.Interior.Color = RGB(255, 255, 255)
End With
Application.EnableEvents = False
ActiveSheet.PrintOut
With Feuil1.[A1]
.Font.Color = RGB(0, 0, 0)
.Interior.Color = RGB(255, 255, 255)
End With
Application.EnableEvents = False
End Sub