Imprimer seconde feuille

Option Explicit

Sub Test()
    Sheets(Array("Feuil1", "Feuil2")).Select
    If Feuil2.Cells(1, 1) <> "" Then
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2
    Else
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
    End If
    Feuil1.Select
End Sub

Sub imprime()
Dim LigneDeFin As Long, NbPage As Integer
Dim Onglet As Worksheet
Dim Classeur As Workbook
'Initialise le classeur à traiter
Set Classeur = ThisWorkbook
'Scrute l'ensemble des feuilles du classeur
For Each Onglet In Classeur.Worksheets
 'Si repère feuille imprimable
 If Right(Onglet.Name, 1) = "_" Then
  'Si au moins une cellule de renseignée
  If WorksheetFunction.CountA(Onglet.Cells) > 0 Then
    'Laissée ici mais pas forcément utile dans ce cas
     'Recherche de la dernière ligne contenant quelque chose
     LigneDeFin = Onglet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  End If
  ' Si quelque chose à imprimer
  If LigneDeFin > 0 Then
     LigneDeFin = 0
    'Incrémente le nombre de page
    NbPage = NbPage + 1
    'Multi selection des feuilles à imprimer
    If NbPage = 1 Then
      Onglet.Select
     Else
      Onglet.Select (False)
    End If
  End If
End If
Next
If NbPage > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False
End Sub