Macro Excel: Envoyé un pdf précédement créé par OUTLOOK

Option Explicit
Dim Mess As Integer, r As String, s As String, t As String, o As String, P2 As String, P3 As String, P4 As String, P5 As String, P6 As String, P7 As String, P8 As String

Sub Analyse()

r = Sheets("Def").[Q2]
s = Sheets("Def").[Q3]
t = Sheets("Def").[E26]
o = Sheets("Def").[D13]

If Dir("C:\Demande de Démo\" & o, vbDirectory) <> "" Then GoTo P2:
If Dir("C:\Demande de Démo\" & "\" & s, vbDirectory) = "" Then _
Mess = MsgBox("le Répertoire " & s & " n'existe pas. Voulez vous le créer? ", _
vbYesNo + vbInformation, "Classeur")
If Mess = vbNo Then Exit Sub
If Mess = vbYes Then MkDir ("C:\Demande de Démo\" & s)

P2: If Dir("C:\Demande de Démo\" & s & "\" t , vbDirectory) = "" Then _
Mess = MsgBox("le Sous Répertoire " & t & " n'existe pas. Voulez vous le créer? ", _
vbYesNo + vbInformation, "Classeur")
If Dir("C:\Demande de Démo\" & s & "\" & t, vbDirectory) <> "" Then GoTo P3:
If Mess = vbNo Then Exit Sub
On Error Resume Next: If Mess = vbYes Then MkDir ("T:\Commun\Technique\Clients\" & o & "\" & v)

P3: If Dir("C:\Demande de Démo\" & s & "\" & t & "\" & o, vbDirectory) = "" Then _
Mess = MsgBox("le Sous Répertoire " & o & " n'existe pas. Voulez vous le créer? ", _
vbYesNo + vbInformation, "Classeur")
If Dir("C:\Demande de Démo\" & s & "\" & t & "\" & o, vbDirectory) <> "" Then GoTo P4:
If Mess = vbNo Then Exit Sub
On Error Resume Next: If Mess = vbYes Then MkDir ("C:\Demande de Démo\" & s & "\" & t & "\" & o)

P4: Sheets("Devis").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Demande de Démo\" & s & "\" & t & "\" & o & "\" & "Demande Démo" & "_" & r & s & t & o & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Mess = MsgBox("Le fichier pdf a bien été créé dans le dossier d'Archives")
GoTo P7:

P7:

Cliquez pour agrandir...