XL 2021 Envoi d'email et PJ en VBA

'Envoi d'email avec la facture en PJ
'il faut passer,email destinataire,email de l'émetteur,MdP emetteur, le chemin de la PJ en option
Sub Office365_Email(mailReferent As String, usermail As String, pwdSender As String, Optional FichierJoint As String)
Dim objMessage, objConfig, Fields
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = usermail
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pwdSender
    '.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = False
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/cdoSMTPConnectionTimeout") = 60
    .Update
End With
Set objMessage.Configuration = objConfig

With objMessage
    .Subject = [Obj_Mail] & [Text_Saisie_Fact]
    .From = usermail
    .To = mailReferent
    .CC = usermail
    ' .BCC = "copie_cachee@exemple.com"
    ' .Importance = 2 ' Urgent
    '.HTMLBody = "<h1>Test Message depuis excel</h1>" ''ou    .TextBody = Corps
    .TextBody = [Messag_Mail]
    If Len(FichierJoint) <> 0 Then .AddAttachment (FichierJoint)
    .Send
End With
Set objMessage = Nothing
Set objConfig = Nothing
Set Fields = Nothing

MsgBoxX "Le message a été envoyé à " & mailReferent, vbInformation, DelayOfResponse:=2

' Libérer les objets CDO
Set iMsg = Nothing
Set iConf = Nothing
End Sub