bonjour comment vous allez ?
j'ai mon code ci qui me permet d'imprimer mes feuilles (masquées)
je voudrais savoir comment faire l'apperçu avant impression et si possible affiche un message texte pour choisir les feuilles qu'on désires imprimer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton7_Click()
   Dim Sht As Worksheet
  Application.ScreenUpdating = False
  For Each Sht In Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4"))
    Sht.Visible = xlSheetVisible
    Sht.PrintOut Copies:=1
    Sht.Visible = xlSheetHidden
  Next Sht
  Application.ScreenUpdating = True
End Sub

MErci de bien vouloir m'aider