HELP!! Positionnemnet et dimensionnement image dans Word depuis Excel VBA

[simonlagaffe]

Bonjour,
J'ai créer un fichier excel de gestion de membres d'adhérents d'un club. J'ai ajouter une fonction permettant de créer des cartes membres (sur doc Word)automatiquement, mais par contre j'ai un problème au niveau de mes images:
J'utilise une boucle FOR(car jusqu'à 8 carte de membres maximum), et "z" comme variable pour les index des images
Voici le code:

Dim n As Long 'variable pour boucle
Dim z As Long 'variable pour numero image word

For n=1 to NbreCarte
...
        On Error Resume Next
        Fichier = "C:\Gestionnaire REF\testpilotageWord.doc"
        DocWord.InlineShapes.AddPicture Filename:= _
        "C:\Gestionnaire REF\Photos\" & NumAdh & ".jpg" 'Image à insérer dans document Word
        On Error GoTo 0
        'Redimensionnement de l'image
        DocWord.InlineShapes(z).Height = 87.99 '<-- 1er bug a la 3ème image
        DocWord.InlineShapes(z).Width = 72.77
        DocWord.InlineShapes(z).ConvertToShape
        'Positionnement de l'image
        DocWord.Shapes(z).Top = 110 '<-- 2eme bug, dés la première image
        DocWord.Shapes(z).Left = 210
        z = z + 1
Next

J'aurais besoin vraiment de votre aide sur ça!! je bloque complètement sans comprendre....