Envoie mail en VBA par outlook

Bonjour,

J'ai créé une macro en VBA sur excel qui permet d'envoyer un mail par outlook au destianatairee qui se trouve en : tableausuivi(i, 5).
Je voudrais aussi envoyer ce meme mail en meme temps a une personne en copie en : tableausuivi(i, 6).


Voici mon code:


MailAd = tableausuivi(i, 5)

If MailAd <> "" Then

Set omessage = osession.Outbox.Messages.Add
omessage.Subject = "RELANCE/REMINDER Supplier : " & tableausuivi(i, 0)
Set oRecip = omessage.Recipients.Add(MailAd)
oRecip.Resolve
omessage.Text = message
omessage.Send True


C'est surment tres simple :) mais je n'ai pas la solution :s ,

merci de votre aide.

++