Option Explicit
Sub Tst()
Dim Ar(1) As String, sNomFichierPDF As String
sNomFichierPDF = ThisWorkbook.Path & "\" & "Tableau.pdf"
Ar(0) = "recap1"
Ar(1) = "recap2"
Application.ScreenUpdating = False
Sheets(Ar).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("detail1").Select
Application.ScreenUpdating = True
End Sub