Pdf depuis excel

Bonjour à toutes et à tous,
j'utilise excel 2007 et je créé une macro qui enregistre certains onglets en pdf. La macro créé d'abord un nouveau dossier dans lequel elle enregistre 3 onglets, chacun sous la forme d'un seul pdf, puis j'ai besoin qu'elle sélectionne deux onglets pour en faire un unique pdf. et c'est là qu'apparait l'erreur "438". Cela doit être assez simple mais je débute dans les macros et ne trouve pas la solution, si une âme charitable pouvait m'aider... Merci d'avance, voici la macro:
Sub enre()
'
MkDir ("M:\Finances\Etats de trésorerie\projet matrice Fred\nouveau")
' enre Macro
'
Sheets("Récap").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="M:\Finances\Etats de trésorerie\projet matrice Fred\nouveau\Récap.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'
Sheets("corresp IA (2)").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="M:\Finances\Etats de trésorerie\projet matrice Fred\nouveau\IA.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("corresp JCLT (2)").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="M:\Finances\Etats de trésorerie\projet matrice Fred\nouveau\JCLT.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets(Array("corresp PSA (2)", "corresp HS (2)")).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="M:\Finances\Etats de trésorerie\projet matrice Fred\nouveau\PSA HS.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub