Sub PDF_Excel()
Dim Ws As Worksheet, Fichier As String
'Boucle sur toutes les feuille de calcul du classeur.
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "base" And Ws.Name <> "modele" And Ws.Name <> "parametrage" And Ws.Name <> "dernier_utilisateur" Then
Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".pdf"
'Crée un pdf de chaque feuille
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ws.Name & Format(Date, dd - mm - yyyy) & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=True, OpenAfterPublish:=True
End If
Next Ws
End Sub