Option Explicit
Sub Test()
Dim Rep As String
Rep = InputBox("Pour quel Technicien ?", "Choix du Technicien", "Tech_1")
ActiveSheet.PageSetup.PrintArea = Rep
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\JCGL\Downloads\" & Rep & ".pdf"
Application.Dialogs(xlDialogSendMail).Show
End Sub