Sub nom_phot()
CheminDAccesAuxPhotos = ThisWorkbook.Path & "\Photos300px\"
myfile = Dir(CheminDAccesAuxPhotos & "*.jpg")
LigneOuCollerLaPhoto = 7
i = 1
While myfile <> ""
Cells(LigneOuCollerLaPhoto, 1) = "Photo" & i
ActiveSheet.Pictures.Insert(CheminDAccesAuxPhotos & myfile).Select
Selection.Top = Cells(LigneOuCollerLaPhoto, 1).Top
Selection.Left = Cells(LigneOuCollerLaPhoto, 1).Left
LigneOuCollerLaPhoto = LigneOuCollerLaPhoto + 3
myfile = Dir
i = i + 1
Wend
End Sub