XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur

Option Explicit

Sub PDF()
Application.ScreenUpdating = False
Dim Wsh As Worksheet, NFichier$, Tabl

NFichier = "MonFichier" ' A adapter
Tabl = Array()
For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Visible = True Then
        ReDim Preserve Tabl(UBound(Tabl) + 1)
        Tabl(UBound(Tabl)) = Wsh.Name
    End If
Next Wsh

With Sheets(Tabl).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & NFichier
End With

End Sub