Sub Importer_IMAGES_depuis_Dossier()
Dim DLog As FileDialog, Dossier$, Fic$, IMG$, r%, x%, y%, w%, h%
Set DLog = Application.FileDialog(4)
If DLog.Show = -1 Then
Dossier = DLog.SelectedItems(1) & "\"
Fic = Dir(Dossier)
Do While Fic <> ""
r = r + 1
Cells(r, 2).Value = Fic
With Cells(r, 1)
.RowHeight = 57
x = .Left
y = .Top
w = .Width
h = .Height
End With
IMG = Dossier & Fic
ActiveSheet.Shapes.AddPicture...