Sub CreationPDF()
Dim CheminEtNom$
Application.ScreenUpdating = False
ActiveWorkbook.Save
' Créationdossierssurordinateurs()
On Error Resume Next
MkDir "C:\Envoi quittances loyer par mail\"
MkDir "C:\Envoi quittances loyer par mail\" & Range("c18")
On Error GoTo 0
CheminEtNom = "C:\Envoi quittances loyer par mail\" & [c18] & "\Echéance du mois de " & [d23].Text
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminEtNom
MsgBox "Création du fichier PDF effectuée.", , "Information"
End Sub