Macro pour sauvegarder un fichier en xls ET pdf.

Bonjour à tous,

J'ai cette macro qui m'enregistre le fichier sous un certain nom et un format xls. J'aimerai savoir si il est possible de faire en sorte de sauvegarder une des deux pages en pdf en plus.

Merci d'avance :)

Le code actuel :

Sub EnregistreSous()
'
' Enregistrer Sous Macro
'
'
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "E:\PME\EAD\EAD - ATTESTATIONS ET RAPPORTS 2016\VISITE PERIODIQUE\"
nomfichier = ActiveSheet.Range("D18") & "_" & Range("F24") & extension
With ActiveWorkbook
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub