Selectionner plusieurs feuilles vers impression

Sub ImprPdf()
Application.ScreenUpdating = False
For i = 1 To Sheet.Count
If Sheets(i).Visible = -1 Then
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=toutcr, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next i
Application.ScreenUpdating = True
End Sub

Sub ImprPdf()
  Dim S As Worksheet
  For Each S In Sheets
    If S.Visible = -1 Then S.ExportAsFixedFormat Type:=xlTypePDF, Filename:=toutcr, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  Next
End Sub

Sub Imprime_PDF_FeuillesVisibles()
'Sélectionne les feuilles visibles
SelectAllSheetsVisible
'Imprimme dans un fichier PDF l'ensemble des feuilles.
        ActiveWindow.SelectedSheets.Select
        ActiveWorkbook..ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\NOM_UTILISATEUR\Desktop\ImprimePDF_FeuillesVisibles.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Sub SelectAllSheetsVisible()
'http://www.developpez.net/forums/d976183/logiciels/microsoft-office/excel/macros-vba-excel/muli-selection-sheets-vba/
Dim Nom_Feuilles() As Variant, j, n
n = Sheets.Count 'Me.ListBox1.ListCount
j = 0
' Stop
For i = 1 To n '- 1
    'If Me.ListBox1.Selected(i) = True Then
    If Sheets(i).Visible = True Then
        ReDim Preserve Nom_Feuilles(j)
        Nom_Feuilles(j) = Sheets(i).Name 'Me.ListBox1.List(i)
        j = j + 1
    End If
Next
If j > 0 Then
    Sheets(Nom_Feuilles()).Select
End If
End Sub