Donnees da Outlook dans Word

Bonjour le groupe,
Une petite question qui me pose bien des soucis :
Private Sub ListeMail()
Dim ol As Outlook.Application
Dim ns As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder
Dim itm As Outlook.ContactItem
Dim i As Integer

On Error Resume Next
Set ol = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Set ol = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set ns = ol.GetNamespace("MAPI")
Set fld = ns.GetDefaultFolder(olFolderContacts)
'fld.Display
Ce debut de procedure fonctionne parfaitement avec Excel , mais avec
Word, ca coince des la premiere ligne. Est ce que quelqu'un aurais une
explication a me donner ou une solution a me proposer ?
C'est une procedure pour recuperer les nom, societe et fax dans les
contacts Outlook.
D'avance, je remercie tous ceux qui pourront contribuer a un debut de
solution (les autres aussi je les remercie de m'avoir lu ).
JLuc