Sub Bouton1_Cliquer()
'Declare variables
Dim Image As Object
Dim RowCounter As Integer
RowCounter = 1
dossier = ThisWorkbook.Path & "\PHOTOS"
fic = Dir(dossier & "\*.*")
col = 1
Do While fic <> ""
Dim tbl(1 To 100, 1 To 2000)
'Load the image
Set Image = CreateObject("WIA.ImageFile")
Image.LoadFile dossier & "\" & fic
't = t & fic & vbCrLf
tbl(1, col) = fic
x = 2
For Each p In Image.Properties
On Error Resume Next
x = x + 1
tbl(x, col) = p.Name: tbl(x, col + 1) = p.Value
On Error GoTo 0
Next
col = col + 2
fic = Dir
Loop
Feuil1.Cells(1, 1).Resize(UBound(tbl), 2000) = tbl
Cells(1, 1).CurrentRegion.EntireColumn.AutoFit
End Sub