Aide sur code VBA

Hello tout le monde,

je n'arrive pas à activer ma macro... de ce que je comprends, c'est le mot "contenu" qu'il ne digère pas! j'ai tenté de le remplacer par "body" mais ça ne veut pas non plus.

Merci d'avance de votre aide :)

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

Adresses mail et nom supprimés Modération CCM