XL 2016 Problème envoi mail par macro suite passage Office 365

Sub envoyermail()
Dim Account As Object
Dim Default As Boolean
    Box_Address = "boitegroupe@entreprise.com"
    With CreateObject("outlook.Application") ' Appel Outlook
        For Each Elem In .session.Accounts ' on regarde si Elem fait partie des comptes de l'utilisateur
            If Elem = Box_Address Then Set Account = Elem: Exit For
        Next
        If Account Is Nothing Then
            Set Account = .session.Accounts.Item(1) ' compte par défaut
            Default = True
        End If
        With .createitem(0)
            .Sender = Box_Address
            Set .SendUsingAccount = Account
            .SentOnBehalfOfName = Box_Address
            .To = Range("b6")
            .CC = Range("b11")
            .Importance = 2
            .Subject = "Commande XXX"
            If Default Then MsgBox "le compte pour l'envoi sera celui de" & vbLf & Account.UserName & " <" & Account.smtpaddress & ">"
            .Display ' indispensable içi avant d'appeler le getinspector
            With .GetInspector.WordEditor
                .Range(0).Paste
            End With
        End With
    End With

End Sub

Sub envoyermail()
Dim Account As Object
Dim Compte  As Object

    Box_Address = "boitegroupe@entreprise.com"
    With CreateObject("outlook.Application") ' Appel Outlook
        Set Default_Store = .GetNameSpace("MAPI").defaultstore
        For Each Compte In .Session.Accounts
           ' on choisit le compte par defaut
            If Compte.DeliveryStore.storeid = Default_Store.storeid Then
                Set Account = Compte
                Exit For
            End If
        Next
        If Account Is Nothing Then
            MsgBox "Compte par défaut non trouvé", vbCritical
            Exit Sub
        End If
        With .createitem(0)
            .Sender = Box_Address
            Set .SendUsingAccount = Account
            .SentOnBehalfOfName = Box_Address
            .To = Range("b6")
            '.CC = Range("b11")
            .Importance = 2
            .Subject = "Commande XXX"
            .display ' indispensable içi avant d'appeler le getinspector
            With .GetInspector.WordEditor
                .Range(0).Paste
            End With
        End With
    End With

End Sub