XL 2013 déplacer beaucoup de photos vers un emplacement précis

[Usine à gaz]

Bonjour à toutes et à tous,

Je butte sur un nouveau problème et malgré mes recherches et tentatives, je n'y arrive pas.

J'ai dans un fichier beaucoup de photos importées de 300 à 5000 voire plus.
Ces photos ne sont pas placées les unes au-dessous des autres. Il y a 8 à 10 lignes en chaque photos
Dans le fichier exemple joint, elles sont dans l'onglet Photos.

Dans mon onglet "destination", dans la colonne B, j'ai des noms sur les lignes qui se suivent.
Les photos de l'onglet "photos" sont dans le même ordre que les noms de la feuille "destination".

Ma question
Est-il possible par macro de copier les photos de la feuille "photos" dans la feuille "destination" dans la colonne A à partir de la ligne 3, à la suite : 1 photo dans chaque cellule en descendant (comme montré dans la colonne C de la feuille "destination").

LOL, à l'appui de mes explications vaseuses (comme diront certains), je joins le fichier test qui contient 10 photos pour le test.

Si quelqu'un a une idée, ça m'arrangerait bien
Avec mes remerciements,
Je vous souhaite à toutes et à tous une belle fin de journée,
Amicalement,
arthour973

 

[Usine à gaz]

Re,

@arthour973
Je viens de relire le titre de ton fil
Puisqu'on copie, il ne s'agit pas de déplacement
Apparemment mieux vaut copier que déplacer
Essaie le déplacement avec ceci, tu auras une surprise

Sub test_LW_Ter()
Dim i&
Application.ScreenUpdating = False
With Feuil7
    For i = 1 To .Shapes.Count
    .Shapes(i).Cut
    Feuil1.Cells(i + 2, 1).PasteSpecial
    Application.CutCopyMode = False
    Next i
End With
End Sub

Merci JM, je regarde ça

 

[Usine à gaz]

Re.. Jm, Lone,

Encore un grand merci, ça fonctionne très bien et le fichier est nettement moins lourd (-de 7Mo)