Option Explicit
Private Sub CommandButton1_Click()
Dim curCtrl As Control
Dim nameList As String
For Each curCtrl In Me.Controls
'je souhaiterai filtrer ici en fonction du type de control
nameList = nameList + curCtrl.Name + vbNewLine
Next curCtrl
MsgBox nameList
End Sub