Option Explicit
Sub XlaProperties()
Dim i As Integer
Workbooks.Add
With ActiveSheet
.Rows(1).Font.Bold = True
.Range("A1:D1").Value = _
Array("Nom", "Chemin", "Titre", "Installée")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Name
.Cells(i + 1, 2) = AddIns(i).FullName
.Cells(i + 1, 3) = AddIns(i).Title
.Cells(i + 1, 4) = AddIns(i).Installed
Next
.Range("A1").CurrentRegion.Columns.AutoFit
End With
End Sub