Sub ImportImages()
'JB
ActiveSheet.DrawingObjects.Delete
répertoirePhoto = "D:\Photos_V\"
nf = Dir(répertoirePhoto & "*.jpg") ' premier fichier
Range("b2").Select
Do While nf <> ""
Hauteur = ActiveCell.Height
Set img = ActiveSheet.Pictures.Insert(répertoirePhoto & nf)
img.Top = ActiveCell.Top + 2
img.Left = ActiveCell.Left + 2
Rap = img.Height / img.Width
img.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image
ActiveCell.Offset(0, -1) = Application.Proper(Left(nf, Len(nf) - 4))
'ActiveCell.EntireRow.RowHeight = img.Height + 2
img.Height = Hauteur - 5
img.Width = img.Height * Rap
img.Placement = xlMoveAndSize
nf = Dir ' suivant
ActiveCell.Offset(1, 0).Select
Loop
End Sub