Sub Sauv_Pdf()
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\Archives fiche materiel\" & _
.Range("C2").Value & " N° " & .Range("A2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True
End With
End Sub