If Sheets("Pagegarde").Visible = False Then
MsgBox "Vous devez d'abord créer le fichier de l'export travaux avant de pouvoir lancer l'impression !"
Else
Sheets(Array("Pagegarde", "10-Façades")).Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Recap").Activate
End If