Aide sur code VBA

Sub envoiautomatique()
Dim fichier As Variant

'le programme ouvre une fenêtre pour sélectionner le fichier'
fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

MsgBox fichier

'ici on demande d'utliser outlook comme 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'
'entre guillemet il faut indiquer les adresses mail'
monmessage.To = "Adresse mail 1"
monmessage.To = "Adresse mail 2" 
monmessage.CC = "Adresse mail 3"
'ici nous commençons la rédaction du mail'
monmessage.Attachments.Add fichier

'sujet du mail'
monmessage = "test envoi ZP12"

'Corps du mail'
contenu = "bonjour,"
contenu = "contenu & chr(10) & chr(13)"
'les caractères chr indique un saut de ligne'
contenu = contenu & "veuillez trouvez en PJ le ZP12" & Chr(10) & Chr(13)
contenu = contenu & "cdt" & Chr(10) & Chr(13)
contenu = contenu & "XXXXXX"
monmessage.Body = Body

'ici on provoque l'envoi du mail et de sa PJ'
monmessage.Send

'reinitialisation de la messagerie'
Set mamessagerie = Nothing

'Boîte de dialogue qui confirme l'envoi du message et de sa PJ'
MsgBox "Votre mail a nien été envoyé"

End Sub