Sub ImportAndSizeImage()
Dim lngLine As Long
lngLine = 1
Do Until Cells(lngLine, 2) = ""
ActiveSheet.Pictures.Insert("C:\OUTILS\" & Cells(lngLine, 2).Value).Select
Selection.Top = Cells(lngLine, 1).Top
Selection.Left = Cells(lngLine, 1).Left
Selection.Width = Cells(lngLine, 1).Width
Selection.Height = Cells(lngLine, 1).Height
lngLine = lngLine + 1
Loop
End Sub