Création de d'1 doc PDF à partir de feuilles Excel

Bonjour,
Quelqu'un aura t-il la gentillesse de m'expliquer comment résoudre ce problème: une macro dont le code présenté ci-après, pour créer un doc PDF à partir de feuilles excel coince à chaque fois sans comprendre la cause de l'erreur!
Merci d'avance
Private Sub ImprimerPDF_Click()
adresse = Range("J2").Value
nom = Range("J3").Value
mois = Range("J4").Value

Sheets(Array("page01", "page02", "page03", "page04", "page05", "page06", "page07", _
"page08", "page09", "page10", "page11", "page12", "page13", "page14", "page15", _
"page16", "page17")).Select
Sheets("page01").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
adresse + "\" + nom + "_" + mois + ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

MsgBox ("document PDF imprimé à l'adresse suivante : " + adresse)

Sheets("Accueil").Select
End Sub