Problème de publication sur excel

Bonjour le forum,

J'ai écrit un code vba pour enregistrer mon classeur en pdf.

Problème :

Lorsque la publication se fait, la fenêtre de publication ne se ferme pas, comme si l'opération n'était pas terminée, alors qu'en réalité si puisque le pdf se met en pièce jointe d'un mail et il est parfait.

Comment régler ce problème ??

Merci d'avance , je vous donne un bout de mon code

/code
Dim var11 As String
Dim var12 As String
Dim today As Date
today = Date
On Error Resume Next
Sheets("Editeur 1").Range("g8").Value = Application.UserName
var11 = Sheets("Editeur 1").Range("G6").Value
var12 = Sheets("Editeur 1").Range("h6").Value

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"L:\Commun\Simulations\Dossier simulations à envoyer\Simulation_" & var11 & "_" & var12 & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False


On Error Resume Next
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String, fich As String
Const Chemin = "L:\Commun\Simulations\Dossier simulations à envoyer\"
Desti = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Display
fich = Dir(Chemin & "Simulation_" & var11 & "_" & var12 & ".pdf")
Do While fich <> ""
.Attachments.Add Chemin & fich
fich = Dir
Loop
.Subject = "Simulation_" & var11 & "_" & var12 & "_" & Date
.HTMLBody = "" + .HTMLBody
.Recipients.Add Desti
.VotingOptions = "Approuver; Refuser"
End With
End Sub
/code