Sub EnregPDF()
Dim Nomfichier As String, Chemin As String
Dim Agent As String, DateInit As String, DateFin As String
Agent = Range("C3")
DateInit = Format(Range("E5"), "dd-mm-yyyy")
DateFin = Format(Range("F5"), "dd-mm-yyyy")
Chemin = ActiveWorkbook.Path & "\" '<<=== Chemin à adapter
Nomfichier = Agent & " du " & DateInit & " au " & DateFin & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier
End Sub