Si tu as une astuce pour avoir toutes les feuilles non vides, au format pdf, je suis preneur...
Sub PDF()
Dim w As Worksheet, n%
For Each w In Worksheets
If Application.CountA(w.Cells) Then w.Select n = 0: n = n + 1
Next
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\MonPDF"
End Sub