Code : Sélectionner tout - Visualiser dans une fenêtre à part
 .Picture = ThisWorkbook.Path & "\images\" & Trim(ThisWorkbook.Sheets("Feuil1").Range("F" & ActiveLine).Value)
sacahnt que dans la cellule en question j'ai le nom d'une image en .jpg ...

mais il plante avec un message d'erreur "Objet requis ..."

un msgbox me confirme pourtant bien le path ...

elle est ou la boulette ?