Macro envoi nouveau mail avec PJ

Bonjour,

J'ai crée une macro pour effectuer un publipostage entre une fiche word et un tableau excel. Jusqu'à présent, le document final s'ouvre en tant que nouveau document :

.destination = wdSendToNewDocument

J'aimerai qu'une fois ce document crée, il soit automatiquement envoyé dans Outlook, en pièce jointe d'un nouveau message. Par contre, je ne veux pas écrire l'adresse mail du destinataire dans le code puisqu'il changera tout le temps et que je n'ai pas de tableau récapitulatif des adresses mails dans lequel le code peut piocher. Je veux juste que le document se mette en pièce jointe d'un nouveau message puis je rentrerai moi-même l'adresse mail du destinataire. (J'ai cherché sur les forums, mais à chaque fois il faut écrire l'adresse mail dans le code...)

Ci joint mon code si besoin

Merci par avance !

Sub MacroPublipostage()

Dim MyminiNum As String
MyminiNum = Application.InputBox("Entrer le numero de la commande")
myNum = 1
Do Until Cells(myNum, 1).Value = MyminiNum
myNum = myNum + 1
Loop

    ChangeFileOpenDirectory "S:\***"
    Documents.Open Filename:= _
        "S:\***" _
        , ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""

    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "S:\***" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=S:\***;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path=" _
        , SQLStatement:="SELECT * FROM `'2016$'`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess

    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
             .FirstRecord = myNum - 2

             .LastRecord = myNum - 2

        End With
        .Execute Pause:=False

    End With

End Sub

J'ai trouvé toute seule en fait ^^

Un simple ActiveDocument.SendMail suffit

Bonne journée