Erreur 13 incompatibilité de type

Bonjour,
bien que de nombreux cas sont abordés dans ce forum, je n'ai pas trouvé de réponse à mon problème avec ACCESS 2007.

J'ai une macro (destinée à envoyer une page formulaire par E-mail) dans laquelle de nombreuses lignes de codes sont obtenues par des copier/coller puis le contenu adapté.
Il se trouve que certaines buguent avec ce fameux message d'erreur et je ne sais pas m'en sortir .

Voici mon VBA dans lequel voici (entre autres) 2 lignes qui buguent :
Corps = Corps & [Domaine de compétence]
Corps = Corps & [Moyen de transport]

et pour la première voici les propriétés d correspondantes du formulaire :
Format : @


Private Sub envoi_mail_Click()
' Initialisation et ouverture de Outlook :
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
'
' Destinataire du message :à envoyer en réalité à cby@orange.fr
MonMessage.To = "youp89@free.fr"
'
' Titre du mail :
MonMessage.Subject = "ENVOI d’une FICHE de CANDIDATURE"
' Contenu du mail :
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Vous voudrez bien trouver ci-après une fiche D'INSCRIPTION DE BÉNÉVOLE AUPRÈS DE FRANCE BÉNÉVOLAT"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & ""
Corps = Corps & [Civilité]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & ""
Corps = Corps & [Nom]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & ""
Corps = Corps & [Prénom]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Année de naissance : "
Corps = Corps & [Année naissance]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & ""
Corps = Corps & [Adresse]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & " "
Corps = Corps & [Code postal]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & ""
Corps = Corps & [Ville]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Tel fixe : "
Corps = Corps & [Tel fixe]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Tel mobile : "
Corps = Corps & [Tel mobile]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "E-mail : "
Corps = Corps & [E-mail]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Profession : "
Corps = Corps & [Profession]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Situation actuelle : "
Corps = Corps & [Situation actuelle]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Niveau d'études : "
Corps = Corps & [Niveau d'études]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Domaines de compétences : "
Corps = Corps & [Domaine de compétence]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Pour type(s) de mission(s): "
Corps = Corps & [Pour type de mission]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Acceptation de Mission(s) temporaire(s): "
Corps = Corps & [Accepteriez d'être sollicité(e) pour]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Déplacement accepté dans un rayon de (km): "
Corps = Corps & [Déplacement dans un rayon de (km)]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Moyen de transport: "
Corps = Corps & [Moyen de transport]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Disponibilité : "
Corps = Corps & [Quand]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Containtes candidat : "
Corps = Corps & [Contraintes]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Domaine(s) d'Action(s) souhaité(s) : "
Corps = Corps & [Domaine d'Action 1]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Public souhaité : "
Corps = Corps & [Public]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Types de missions recherchées : "
Corps = Corps & [Type de missions recherchées]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Date d'inscription à FBY : "
Corps = Corps & [Date inscription]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr)
Corps = Corps & "Observations : "
Corps = Corps & [Observations]
MonMessage.body = Corps
' C’est parti :
MonMessage.send
' Fermeture de la session Outlook :
Set MonOutlook = Nothing
End Sub


Excusez moi d'avoir été aussi long, mais je voulais donner le maximum d'infos pour pouvoir être dépanné au mieux.

Merci par avance
Très cordialement
Youp89000