Sub ImportPhotos()
Dim chemin$, fich$, i&
chemin = "C:\photo du personnel\Nouveau dossier\" 'ThisWorkbook.Path & "\" 'pour tester
fich = Dir(chemin & "*.jpg")
Application.ScreenUpdating = False
ActiveSheet.Pictures.Delete 'RAZ
Range("A2:B" & Rows.Count).ClearContents
i = 1
While fich <> ""
i = i + 1
Cells(i, 1) = Left(fich, Len(fich) - 4) 'matricule
Cells(i, 2) = ActiveSheet.Pictures.Insert(chemin & fich).Name
fich = Dir
Wend
[A:B].Sort [A1], xlAscending, Header:=xlYes 'tri sur les matricules
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
With ActiveSheet.Pictures(CStr(Cells(i, 2)))
Rows(i).RowHeight = .Height
.Top = Cells(i, 2).Top
.Left = Cells(i, 2).Left
End With
Next
End Sub