Fonction recherche VBA Excel puis Word

Bonjour à tous,

VBA --> WORD
Lorsque je clique sur le bouton de la feuille 1 je voudrai faire une recherche avec la cellule b17,C17 (Fusionné de la feuille1) sur un tableau dans la page Vendeur et ressortir sur mon document WORD la valeur de la cellule correspondant à la 2ème colonne (Telephone des vendeurs).

Exemple:
Feuil1:
B17:C17 = coco

Vendeur:
ColonneA ColonneB
coco 06 88 88 88
lapin 07 88 88 88
cola 09 88 88 88

Résultat:
06 88 88 88

Voici mon bout de programme:

Dim TéléphoneVendeur As string
TéléphoneVendeur = WorksheetFunction.VLookup(ActiveSheet.Range("B17:C17"), Worksheets("Vendeur").Range("A6:C8"), 2, 0)

DocWord.Bookmarks("TéléphoneVendeur").Range.Text = TéléphoneVendeur

Il me met comme erreur: "erreur d'execution 13"

Avez-vous une idée?
Merci bcp à tous...