Sub Enregistrer_1_seul_PDF()
Dim sh As Worksheet, i&
For i = 2 To Sheets.Count
With Sheets(i).PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next
Set sh = ActiveSheet
Sheets(Array("Finacement 1", "Finacement 2", "Finacement 3")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\ & Sheets(1).[C2].Value & ".pdf"
sh.Select
End Sub