Envoi d'une feuille en mail PDF

Bonjour à tous,

Je souhaiterais, dans un classeur, que si je me trouve sur une feuille, cela génère que cette feuille en PDF, et cela m'ouvre ensuite Outlook, prêt à l'envoi, mais que le mail ne parte pas de suite, mais que je doive moi le faire, ce qui me permettrait de modifier à la dernière seconde. Mon souci est qu'avec mon code, le mail part direct :

Sub SendWorkSheetToPDF()
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "test@test.com"
    .CC = ""
    .BCC = ""
    .Subject = "Sujet du courriel"
    .Body = "Merci de contrôler le doc."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Bonjour,

Remplace .Send par .Display et cela va afficher le mail au lieu de l'envoyer.

Merci beaucoup !!