Sub CreerPDF()
Dim chemin$, fichier$
With ThisWorkbook
chemin = .Path & "\Fichiers PDF\"
fichier = Left(.Name, InStrRev(.Name, ".")) & "pdf"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'création du sous-dossier "Fichiers PDF"
.ExportAsFixedFormat xlTypePDF, chemin & fichier
End With
End Sub