Imprimer plusieurs onglets en un seul pdf

Bonjour à tous,

Après plusieurs tantatives, je vais avoir besoin de vous.

J'essai d'imprimer mon classeur, qui contient 3 onglets, en pdf et combiner tous les onglets en un seul pdf.

J'ai essayé ce code mais sans succès:

Private Sub CommandButton1_Click()

Dim Onglet As Worksheet
Sheets("Formulaire de requête").Visible = False
'Boucle d'impression
For Each Onglet In ThisWorkbook.Worksheets
If Onglet.Visible Then Sheets(Onglet.Name).Select Replace:=False
Next
Sheets(Array("Relevé dimensionnel p.1", "Relevé dimensionnel p.2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "EC-F-032_" & Worksheets("Formulaire de requête").Range("K8").Value.pdf _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("Formulaire de requête").Visible = True
Sheets("Relevé dimensionnel p.1").Select
End Sub

Quand je clic sur mon bouton j'obtien le message suivant: (message relié au texte en rouge)
Erreur d'excécution "424':
Object requis

Je ne comprends pas ce qui ne vas pas.

Pouvez-vous m'aider?

Merci

Cydor 😉