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