Bonjour,
Comme tu as 2007, et que celui-ci permet de publier directement en pdf (Bouton Office, Enregistrer sous, pdf), l'enregistreur de macro m'a donné ceci (légèrement amélioré)
Sub Macro1()
ChDir ActiveWorkbook.Path
For Each sh In Sheets
If Application.CountA(sh.Cells) > 0 Then
lenom = sh.Name & ".pdf"
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=lenom
End If
Next sh
End Sub
Bonne journée