' ENREGISTRER
Private Sub CommandButton2_Click()
Dim Chemin As String, Fichier As String
'Sheets("feuil1").Copy
Fichier = CStr(ThisWorkbook.ActiveSheet.Range("B10") & " " & Range("B1"))
Chemin = Application.GetSaveAsFilename(Fichier, fileFilter:="Fichiers Pdf (*.Pdf), *.pdf")
ActiveSheet.ExportAsFixedFormat Filename:=Chemin, Type:=x1TypePDF
End Sub