Problème d'envoi de mail avec Excel via Outlook sujet

Bonjour,

J'ai le code, ci-dessous, d'envoi d'une feuille de calcul Excel par mail via Outlook.

Code:

---

    ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Select
   
    ' Show the envelope on the ActiveWorkbook
    ActiveWorkbook.EnvelopeVisible = True
   
    adresse = Sheets("Configuration").range("C12")
    cc = Sheets("Configuration").range("C13")
    message = Sheets("Configuration").range("C11")
    sujet = Sheets("Configuration").range("C10") & " " &  Day(LocalTimeToFRTimeSerial(Now())) & "/" & Month(LocalTimeToFRTimeSerial(Now())) & "/" & Year(LocalTimeToFRTimeSerial(Now())) & " " & Hour(LocalTimeToFRTimeSerial(Now())) & ":00 FR"
           
    Set OutlookApp = CreateObject("outlook.application")
    Set OutlookMail = OutlookApp.CreateItem(0)
   
    With ActiveSheet.MailEnvelope
      .Introduction = message
      .Item.To = adresse
      .Item.cc = cc
      .Item.Subject = sujet
      '.Item.Send
    End With

---

Ce code fonctionne sur mon poste de travail.
Sur un autre poste, ça ne fonctionne pas. J'obtiens le message d'erreur suivant :

Code:

---

La méthode 'MailEnvelope' de l'objet -Worksheet' à échoué

---

Et Excel s'arrête sur la ligne :

Code:

---

ActiveWorkbook.EnvelopeVisible = True

---

Les postes de travail sont tous équipé de Windows 7 Entreprise et de Microsoft Office 2013 (Office 14).
Avez-vous déjà rencontré ce problème ? Avez-vous une idée pour m'aider à résoudre ce problème ?

Merci d'avance de votre retour,