Sub ListerContacts()
' Ref outlook activée
Dim olAdr As Outlook.AddressList
Dim folder As Outlook.folder
Dim contact As Outlook.ContactItem
Set olApp = New Outlook.Application
Set olAdr = olApp.Session.AddressLists(1)
Set folder = olAdr.GetContactsFolder
For Each contact In folder.Items
Debug.Print contact.FullName
Next
End Sub