Option Explicit
Sub Impression_feuilles_affichees_en_pdf()
Dim Chemin As String
Dim Feuille As Worksheet
Chemin = "C:\TEMP\" ' mettre le nom du dossier où enregistrer les PDF
For Each Feuille In Worksheets
'Changer avec les noms rééls des feuilles à exclure
If Feuille.Visible Then
If Feuille.Name <> "A EXCLURE 1" And Feuille.Name <> "A EXCLURE 2" And Feuille.Name <> "TA EXCLURE 3" Then
Feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Feuille.Name & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End If
Next
'ouverture du dossier cible
Shell Environ("WINDIR") & "\explorer.exe " & Chemin, vbNormalFocus
End Sub