Sub SaveasPDF()
firm = [D3]
Nom = [D4]
Objet = [D10] & " " & [D11]
Milease = [R10] & "." & [R11]
Mois = Month(Now)
An = Year(Now)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Desktop\" & An & "." & Mois & " - " & firm & " " & Nom & " - " & Objet & " - " & Milease & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub