Sub Bouton_PDF_equipe()
Dim NomDefaut As String
NomDefaut = "Planning Equipe - " & Range("C2").Value & " - " & Range("C3").Value & " - HP" & Range("F2").Value & Range("AH2").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.GetSaveAsFilename(NomDefaut, "Fichier PDF (*.pdf), *.pdf")
End Sub