Option Explicit
Private Const Fichier As String = "C:\SQCDP.pdf"
Sub Bouton1_Cliquer()
Dim a()
'Recherche du nom de tous les onglets graphiques du classeur
Dim i As Integer, j&
For i = 1 To Charts.Count
ReDim Preserve a(i - 1)
a(i - 1) = Charts(i).Name
Next i
'Sélection des onglets graphiques
Sheets(a).Select
'Export en un fichier PDF - effaçage du fichier si déjà existant à l'adresse indiquée
If Dir(Fichier) <> "" Then Kill Fichier
'Export en un fichier PDF - création et sauvegarde du PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub