Envoyer un email en copie via bouton Excel

Bonjour,

Sur Excel, j'ai réussi à créer un bouton pour envoyer un document par email. L'utilisateur clique sur le bouton, et le formulaire est envoyé.

Ci dessous le code utilisé:

Sub EnvoiMail()

Application.DisplayAlerts = False

ThisWorkbook.SendMail Recipients:="xxx@machin.com ", _

Subject:="Demande d'intervention", _

ReturnReceipt:=True

End Sub

Il faudrait que je rajoute un destinataire en copie. Qu'est ce que je dois rajouter?

Merci d'avance pour votre aide. J'ai parcouru le forum sans trouver de réponse.

J'ai bien trouvé un autre type de module mais il faut préciser où se trouve le fichier et dans mon cas ça ne va pas car c'est un fichier mis à dispo en réseau.

Bonjour,

à tester,

Sub EnvoiMail()
Application.DisplayAlerts = False
ThisWorkbook.SendMail Recipients:=Array("xxx@machin.com", "yyy@machin.com"), _
Subject:="Demande d'intervention", ReturnReceipt:=True
End Sub

Merci beaucoup c'est parfait!