Sub MacroSauv()
'
' MacroSauv Macro
'
'
Range("A1:K53").Select
Range("K1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/Adrien/Desktop/Pojet Excel/Demande d'inscription et de réinscription." & Range("N7") _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub