VB Envoi de mail a partir d'excel

Bonjour,

Mon probleme est assez simple. J'ai une base d'adresses mails sous excel et je souhaiterai les ajouter à un nouveau mail. Pour creer le mail et ajouter dans la liste des destinataires "A" pas de problème. Par contre si j'essai d'ajouter une adresse mail en copie, là il refuse de me la mettre. Je n'ai pas d'erreur qui s'affiche, juste rien ds mon champs copie.
Je pense que je dois oublier quelque chose dans mon code.


Code Visual Basic :

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.Createitem(olMailItem)


Set myrecipient = myItem.Recipients.Add("youpi@ess.fr") 'ajout ds "A" / Marche nikel

Set myrecipient = myItem.Recipients.Add("essai@ess.fr") 'Ajout en Copie
myrecipient.Type = olcc 'Aucune erreur ici mais pas d'ajout :s
myrecipient.Resolve