XL 2016 Envoyer un fichier excel par email via outlook

Bonjour à tous,
Je cherche à envoyer un fichier excel par email
J'ai réalisé une macro, qui me donne aucune erreur lors de son lancement, mais je ne reçois aucun email en pièce jointe
Je suis perdu, pouvez vous m’apporter votre aide
Très cordialement RZ
Voici la macro
PS : Dans VBA j'ai coché dans le menu Outils --> Références --> Microsoft Outlook 16.0 ObjectLibrary
Sub envoiMail()
Dim Fichier As Variant

'Le programme ouvre une fenêtre ou l'on sélectionne le fichier'
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

MsgBox Fichier

'Ici on demande d'utilisé Outlook come client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.Application")
Set MonMessage = MaMessagerie.createitem(0)

'Ici nous définissons les champs du mail'
'Adresse mail donnés en exemple'

MonMessage.To = "xxxxx.xxxxxx@gmail.com"
MonMessage.CC = "xxxxx.xxxxx@numericable.fr"
'MonMessage.CCI = ""'

'Ici nous commençons la rédaction du mail'
MonMessage.Attachments.Add Fichier

'Sujet du mail'
MonMessage.Subject = "Test envoi PJ par VBA"

'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)

'Les caractères CH indique un saut de ligne'
contenu = contenu & "Veuiller trouver en pièce jointe le fichier " & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
contenu = contenu & "R.TOTO" & Chr(10) & Chr(13)
MonMessage.Body = "contenu"
contenu = contnu & "Ci-joint le fichier."
MonMessage.Body = contenu

'Ici on provoque l'envoi du mail et sa pièce jointe'
MonMessage.Sent

'Réinitialisation de la messagerie'
Set MaMessagerie = Nothing

'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'
MsgBox "Confirmation de l'envoi du message"

End Sub