Exporter 1 seul fichier PDF pour plusieurs feuilles

Bonjour à tous,

Je rencontre une difficulté par rapport à l'export PDF dans un de mes fichiers excel.

Mon classeur contient 24 feuilles, et à compter de la 8e feuille, cela correpond à un calendrier d'heures effectuées par des salariés.

Je souhaite exporter mensuellement la plage correspondant au mois voulu de toutes ces feuilles en un seul fichier PDF.

J'ai programmé en VBA ceci :

Private Sub CommandButton1_Click()
'Janvier

nbfeuilles = ThisWorkbook.Sheets.Count
For i = 8 To nbfeuilles
ThisWorkbook.Sheets(i).Activate

ActiveSheet.Range("$B$22:$B$387").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "1/31/2017")
        'Filtre le mois de janvier
        Next i

For i = 8 To nbfeuilles
Sheets(i).Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.Zoom = False
            ActiveSheet.PageSetup.FitToPagesTall = 1
            ActiveSheet.PageSetup.FitToPagesWide = 1
            nomfich = "C:\Desktop\RAPPORTS SOGESCO\HEURES_" & ActiveSheet.Name & "_Janvier_2017" & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomfich, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Next i

End Sub

Ce programme me génère 17 fichiers PDF, je souhaiterais en avoir 1 seul avec 17 pages. Quelle macro pourrais-je utiliser ?

Merci,

Cloé