nouveau contact outlook depuis vba excel

Bonjour
je souhaiterai créer un nouveau contact outlook depuis excel vba, non pas dans le dossier par défaut, mais dans un dossier spécifique, par ex "Test"

Code:

---

1 2 3 4 5 6

..... Set objOutlook = New Outlook.Application 'Crée un élément pour les contacts Set objContact = objOutlook.CreateItem(olContactItem) 'dans le dossier "Test". ....'Les éléments à saisir... objContact.save

---

En panne d'idée. Merci de l'aide.