Enregistrement d'une sélection de diapositives Powerpoint en pdf

Bonjour,

Je souhaiterais pouvoir enregistrer en pdf une sélection de diapositives (regroupées dans des sections différentes).

Par exemple, généré un pdf pour la section A et un autre pour la section B.

J'ai indiquée déjà le code ci-dessous

Sub sav_pdf_auto()
Dim r1 As PrintRange, r2 As PrintRange, r3 As PrintRange

'Diapo1
'Set r1 = ActivePresentation.PrintOptions.Ranges.Add(1, 1)
'Diapo1 et Diapo2
'Set r2 = ActivePresentation.PrintOptions.Ranges.Add(1, 2)
'definition presentation complete a sauvegarder en PDF
Set r3 = ActivePresentation.PrintOptions.Ranges.Add(1, ActivePresentation.Slides.Count)
ActivePresentation.ExportAsFixedFormat Path:=ActivePresentation.Path & "\" & Replace(ActivePresentation.Name, "pptm", "PDF"), _
FixedFormatType:=ppFixedFormatTypePDF, _
PrintRange:=r3, RangeType:=ppPrintSlideRange
End Sub

Est-il possible d'ajouter les sections ou une plage de diapositvies ?

Merci d'avance pour votre aide