Macro vba choix des onglets à imprimer

Sub imprimer_onglet()

'pour chacune des feuilles du classeur
For Each feuille_en_cours In Sheets

    'l 'activer pour visualiser
    feuille_en_cours.Activate
    
    'demander à l'imprimer
    reponse = MsgBox("Voulez-vous imprimer la feuille : " & feuille_en_cours.Name & " ?", vbYesNoCancel)
    
    'si la réponse n'est ni oui ni non, sortir du programme
    If reponse <> 6 And reponse <> 7 Then End
    
    'si la réponse est oui (6), imprimer
    If reponse = 6 Then feuille_en_cours.PrintOut

Next

Sub imprimer_onglet()

'pour chacune des feuilles du classeur
For Each feuille_en_cours In Sheets
  if feuille_en_cours.Name <> "Feuille des données" and feuille_en_cours.Name <> "Parametres" and feuille_en_cours.Name <> "Horaires Semaine" then
    'l 'activer pour visualiser
    feuille_en_cours.Activate
    
    'demander à l'imprimer
    reponse = MsgBox("Voulez-vous imprimer la feuille : " & feuille_en_cours.Name & " ?", vbYesNoCancel)
    
    'si la réponse n'est ni oui ni non, sortir du programme
    If reponse <> 6 And reponse <> 7 Then End
    
    'si la réponse est oui (6), imprimer
    If reponse = 6 Then feuille_en_cours.PrintOut


   end if
Next

Private Sub CommandButton1_Click()
Dim i as Integer
UserForm1.Hide
With ListBox1
  For i = 0 To .ListCount - 1
    If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
  Next
End With
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each s In Sheets
  ListBox1.AddItem s.Name
Next
End Sub

Sub ChargeListBox()
Dim s As Object
With Sheets("Feuil1").ListBox1
  .MultiSelect = fmMultiSelectExtended
  .Clear
  For Each s In Sheets
    .AddItem s.Name
  Next
End With
End Sub

Sub Imprimer()
Dim i As Integer
With Sheets("Feuil1").ListBox1
  For i = 0 To .ListCount - 1
    If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
  Next
End With
ActiveCell.Activate
End Sub

Sub Imprimer()
Dim i As Integer
With Sheets("Feuil1").ListBox1
  Application.EnableEvents = False 'désactive l'action des évènements
  For i = 0 To .ListCount - 1
    If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
  Next
  Application.EnableEvents = True
End With
ActiveCell.Activate
End Sub