Catalogue d'images sur Excel en VBA

Bonjour,
je suis en stage en entreprise et je doit préparer un catalogue permettant de récupérer des données ( référence, désignation, prix, et photos sur Sage ( logiciel de comptabilité/gestion ). A partir d'une feuille excel, le Client inscrit le N° du document à traiter ( ici un devis ), et le nombre de photos qu'il veut afficher par page. J'ai avancé mon travail en créant une macro sur un bouton, mais je ne gère pas le nombre d'images demander par le client. Regardez le code de ma macro, et signalez moi si vous avez des incompréhensions. PS : je suis newbi, ne soyez pas trop méchants =)
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

Sub MajCatalog()
'
' Macro MajCatalog
' Macro enregistrée le 25/09/2007 powered by SICAL Informatique
' Tous droits réservés (CopyRight SICAL)
'
Sheets("Selections").Select 'Utilisation de la feuille "Selections"
Worksheets("Selections").Range("A5:P16000").Clear
'Récupération du Numéro de document
NumDoc = Cells(1, 2)
'Selection écritures lignes du document
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=GesComSage;DBQ=C:\Documents and Settings\All Users\Documents\Sage\Gestion commerciale\Gescom Bijou.gcm;CODEPAGE=1252;" _
, Destination:=Range("A5"))
.CommandText = Array( _
"SELECT F_DOCLIGNE.DO_PIECE, F_DOCLIGNE.DL_NO, F_DOCLIGNE.AR_REF, F_DOCLIGNE.DL_DESIGN, F_DOCLIGNE.FNT_PRIXUNET, F_ARTICLE.AR_PHOTO" & Chr(13) & "" & Chr(10) & "FROM F_ARTICLE F_ARTICLE, F_DOCLIGNE F_DOCLIGNE" & Chr(13) & "" & Chr(10) & "WHERE F_ARTICLE.AR_" _
, _
"REF = F_DOCLIGNE.AR_REF AND ((F_DOCLIGNE.DO_PIECE='" & NumDoc & "'))" & Chr(13) & "" & Chr(10) & "ORDER BY F_DOCLIGNE.DL_NO" _
)
.Name = "GesComSage"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

'Recherche du nombre de ligne dans le tableau données
IndiceTab = 6 'le tableau démarre à la ligne 10
While Not Range("A" & IndiceTab).Value = ""
IndiceTab = IndiceTab + 1
Wend
nblignes = IndiceTab - 6 'on récupère le nombre de ligne total du tableau
'
For Indlig = 1 To nblignes
CheminImage = Cells(5 + Indlig, 6) 'recup nom fichier
ligne = [G6].Row 'en quelle ligne ?
ActiveSheet.Pictures.Insert(CheminImage).Select 'ouverture image
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
X = Cells(2, 2) 'récupere la hauteur de l'image
.Height = X 'hauteur de l'image
.Left = (X * Indlig) 'placement des images cote à cote ( C'est ICI MON PROBLEME !!!! )
.Top = 100 'et positionner verticalement (LES COORDONEES .left et .top sont mis au hasard .... )
End With
Next Indlig
'
End Sub
'mon probleme est que je ne sait pas comment gerer le fait que c le client qui decide de sa présentation ( il decide le nombre d'image a afficher par page )