Bonjour
Rapidement plusieurs erreurs dans le calcul du nom du fichier. (image)
1/ta boucle for lg= 1 to 4: tu ne trouvera pas le nom de ton image dans les lignes 1 à 4, mais dans les lignes 2 à 8 avec un step de 2./ ton fichier image ne s'appel certainement pas 1 ou 2 ou 3...
mais plutôt 1.jpg 2.jpg alors ajoute ton extension.
For Lg = 2 To 8 Step 2 '.Range("B65536").End(xlUp).Row ' Parcourt de toute la colonne B
For Cg = 1 To 4
Image = ThisWorkbook.Path & "\Photos\" & .Cells(Lg, Cg) & ".jpg" ' Répertoire à actualiser
Sheets("Feuil1").Cells(1, 8) = Image