Sub impression_2()
Dim Tb As Variant
Tb = Array("Page de garde", "EEI et intervenants", "Fiche descriptive", _
"Risques Co-activité", "plan et locaux à disposition", "Conduites urgences", _
"Permis de travail")
If Range("Paramètres!verif_equipmt").Value = True Then
ReDim Preserve Tb(UBound(Tb) + 1)
Tb(UBound(Tb)) = "Vérification des outils"
End If
Sheets(Tb).Select
Application.Dialogs(xlDialogPrintPreview).Show
End Sub