Macro Envoi de mail via Excel (CC)

Sub Envoidu_Mail_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'corps du message si besoin
    strbody = Contenu
    With OutMail
        .To = "xxxxxx@gmail.com"        'destinataire(s)
        .CC = "aaaaa@gmail.com,bbbbbb@gmail.com,ccccccc@gmail.com"          ' copie
        '.BCC = "aaaaa@gmail.com,bbbbbb@gmail.com,ccccccc@gmail.com"       ' si BCC
        .Subject = "Besoin journalier transfert."
        .Body = strbody
        'Piece_jointe
        .Attachments.Add ("C:\test.txt")        'mettre chemin et fichier a joindre
        .Display        'ouvre Outlook
        'or use
        '.Send           'envoi sans ouvrir Outlook
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub