Sub ImprimerLesFeuillesSelectionnees()
Dim Feuille As Worksheet
Dim Chemin As String
Dim X, Z As Byte
Dim MonDico As Object
Set MonDico = CreateObject("Scripting.Dictionary")
Chemin = "C:\Users\camil\Desktop\Nouveau dossier\" ' mettre le nom du dossier où enregistrer les PDF
For Each Feuille In ActiveWindow.SelectedSheets
For Key = 1 To Sheets.Count
If Key = Feuille.Index Then
If MonDico.exists(Key) Then MonDico.Remove Key
MonDico.Add Key, Feuille.Name
Else
If MonDico.exists(Key) Then
GoTo Suite
Else
MonDico.Add Key, 999
End If
Suite:
End If
Next
Next
Worksheets(1).Select
For X = 1 To Sheets.Count
If MonDico.Item(X) <> 999 Then
Worksheets(MonDico.Item(X)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & MonDico.Item(X) & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Next
Set MonDico = Nothing
End Sub