Sub AfficheImage()
'largement inspiré du site de J. Boisgontier
Dim répertoirePhoto As String, DerLig As Long, Lig As Long, Img, ech, Test
répertoirePhoto = "K:\Divalto\Photos articles\" '** à adapter
DerLig = Range("C" & Rows.Count).End(xlUp).Row
For Lig = 2 To DerLig
Cells(Lig, 28).Select ' on se positionne sur la ligne et la colonne où insérer, ** à adapter
ActiveCell.EntireRow.RowHeight = 100 'on dimensionne la hauteur
Test = Dir(répertoirePhoto & Cells(Lig,3) & ".jpg")
If Test <> "" Then
Set Img = ActiveSheet.Pictures.Insert(répertoirePhoto & Cells(Lig, 3) & ".jpg") 'insertion photo
ech = (Img.Height) / (ActiveCell.Height - 4) 'coef Hauteur largeur
Img.Height = ActiveCell.Height - 4 'hauteur de l'image
Img.Width = Img.Width / ech 'largeur proportionnelle de l'image
Img.Top = ActiveCell.Top + 2 'positionne l'image enhaut de la ligne
Img.Left = ActiveCell.Left + 2 'positionne la photo bord gauche de la cellule
Img.Name = Cells(Lig, 3) ' Donne un nom à l'image
Else
Cells(Lig, 28) = "Image non disponible"
End If
Next
End Sub