Appercu avant impression

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

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

Bonjour DorelD

Dans ton envoi par mail, je t'ai faire la procédure pour choisir quelle feuille envoyer

  ' Demander quelle feuille
  UsF_ChoixImp.Show

Il suffit de l'utiliser pour choisir quelle feuille imprimer

Bonjour Bruno

comment allez vous ? bien j'espere

deja avant ça il y a un soucis dans le code que j'ai mis

Sht.Visible = xlSheetVisible

on me met un message d'erreur 1004 : la methode visible de l'objet worksheet a échoué