Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Feuil
For Each Feuil In ThisWorkbook.Worksheets(Array("Feuil1", "Feuil2", "Feuil3")) ' à adapter...
Feuil.Visible = False
Next Feuil
For Each Feuil In ThisWorkbook.Worksheets(Array("Feuil1", "Feuil2", "Feuil3")) ' à adapter
Feuil.Visible = True
Next Feuil
End Sub