Bug sur liste des contacts de outlook

[fredl]

Bonjour à tous,

Je cherche à lister mes contacts outlook par un 'debug.print' avec la macro ci dessous
qui fonctionne, mais bug à plusieurs reprises sur l'instruction 'next' sans raison apparente.
Quelqu'un aurait il une idée du problème rencontré?
Merci pour votre aide!!
Cordialement
Fred

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