Sub Lister_Propriétés_CTRL()
Dim t, i&, ArrCT() As Variant, cTRL As MSForms.Control
t = Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
'Indiquez le nom de l'userform à lister
For Each cTRL In UserForm1.Controls
i = i + 1: ReDim Preserve ArrCT(1 To i)
'ajouter les propriétes à lister sur le même modèle:cTRL.Object.NomDeLaPropriété
ArrCT(i) = TypeName(cTRL) & "|" & cTRL.Name & "|" _
& cTRL.SpecialEffect & "|" _
& cTRL.BackColor & "|" & cTRL.BorderColor
Next cTRL
'adapter plage et noms entêtes selon les besoins
Sheets(1).Range("A1:E1") = Array("Type de Contrôle", "Nom du Contrôle", "Effet Special", "Coulour de Fond", "Couleur de Bordure")
With Sheets(1).Range("A2").Resize(UBound(ArrCT))
.Value = Application.Transpose(ArrCT)
.TextToColumns Destination:=Range("A2"), DataType:=1, Other:=-1, OtherChar:="|", FieldInfo:=t
End With
End Sub