Sub Enregistrer_1_seul_PDF()
Dim sh As Worksheet, i&
----
Set sh = ActiveSheet
Sheets(Array("Financement 1", "Financement 2", "Financement 3")).Select
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Windows\Temp\" & Sheets(1).[B2].Value & ".pdf"
ActiveWorkbook.FollowHyperlink Address:="C:\Windows\Temp\" & Sheets(1).[B2].Value & ".pdf"
sh.Select
Application.DisplayAlerts = True
End Sub