VBA: appel dossier courant + inserer image

Bonjour,

Je suis on ne peut plus novice en VBA et j'ai un projet à faire.
J'ai créé une petite application et je voudrai inserer une image dans la cellule active.
J'ai donc trouvé comment faire avec ces commandes:

Range("A3").Select
ActiveSheet.Pictures.Insert("chemin image").Select

With Selection
.ShapeRange.Left = ActiveCell.Left
.ShapeRange.Top = ActiveCell.Top
End With

Cependant, ne présentant pas mon projet sur mon PC, j'aimerais insérer l'image à partir du dossier courant.
Mais je ne trouve pas la commande.

Mon deuxieme problème, c'est que je n'arrive pas à inserer cette image plusieurs fois, par exemple dans chaque cellule de A1 à A10.
A moins de faire une boucle for de i=1 to 10 avec un offset de (1, 0) à chaque cycle, mais là ça deviens très compliqué.

Alors j'attends avec impatience vos réponse, en espérant qu'une solution simple existe.

Merci à vous