Sub PDFTEST()
Dim sNomFichierPDF As String 'pour PDF
Dim i As Integer
Dim Ar(1) As String
sNomFichierPDF = ThisWorkbook.Path & "\" 'chemin du fichier
Ar = "3" ToCount
Application.ScreenUpdating = False
Sheets(Ar).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("Sommaire!B51").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True
Sheets("Sommaire").Select
Application.ScreenUpdating = True 'a supprimer?
Application.ScreenUpdating = True
MsgBox "La création est terminée. !", vbInformation, "Planche"
End Sub