Sub ENREGISTRER()
'Macro par Dan
Dim extension As String
Dim chemin As String, nomfichier As String, monfichier_pdf
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = Range("I2").Value & "\" ' indiquer le chemin du répertoire dans la cellule I2
nomfichier = ActiveSheet.Range("I5") & extension
nomfichier_pdf = ActiveSheet.Range("I5").Text
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.ExportAsFixedFormat xlTypePDF, chemin & nomfichier_pdf
.SaveAs Filename:=chemin & nomfichier
'.Close
End With
End Sub