Excel 2010 et office 365

Bonjour,
j'essaie d'envoyer une feuille d'un classeur en pièce jointe via la messagerie d'Office 365
la macro qui bugge:
Sub EnvoiPage()

Dim Destinataires As String
Dim Sujet As String
Dim AccuseReception As Boolean

ActiveSheet.Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'Crée une copie de la feuille active

Destinataires = "claudy.catherine@gmail.com"
Sujet = "Envoi automatique: Consommations"
'AccuseReception = True

ActiveWorkbook.SendMail Destinataires, Sujet
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
'MsgBox "L'email a bien été transmis aux destinataires suivants: ***@*** & ***@***"
End Sub


Pouvez vous m'aider?
merci d'avance,
Claudy