Modifier petit code pour afficher nombre de "controls"

Cells(Cpt, 19).Value = Ctrl.Name
Range("S1").Value = Ctrl.Name

Private Sub CommandButton9_Click()
Dim Ctl As Control
Dim Lab() As String, Command() As String, Txt() As String, Autre() As String
Dim Lb As Integer, Cd As Integer, Tx As Integer, Aut As Integer
ReDim Lab(0): ReDim Command(0): ReDim Txt(0): ReDim Autre(0)
Dim i As Integer

    For Each Ctl In Me.Controls
        Select Case TypeName(Ctl)
        Case "Label": ReDim Preserve Lab(Lb): Lab(Lb) = Ctl.Name: Lb = Lb + 1
        Case "CommadButton": ReDim Preserve Command(Cd): Command(Cd) = Ctl.Name: Cd = Cd + 1
        Case "TextBox": ReDim Preserve Txt(Tx): Txt(Tx) = Ctl.Name: Tx = Tx + 1
        Case Else: ReDim Preserve Autre(Aut): Autre(Aut) = Ctl.Name: Aut = Aut + 1
        End Select
    Next Ctl
    'Exemple d'affichage par catégorie de contrôles.
Dim Lig As Long
    Lig = 2
    With ActiveSheet
        .Columns("S:S").ClearContents
        .Cells(Lig, "S") = "Il y a " & Lb & " Label"
        Lig = Lig + 1
        For i = 0 To Lb - 1
            .Cells(Lig, "S") = Lab(i)
            Lig = Lig + 1
        Next i
        Lig = Lig + 1
        .Cells(Lig, "S") = "Il y a " & Tx & " TextBox"
        Lig = Lig + 1
        For i = 0 To Tx - 1
           .Cells(Lig, "S") = Txt(i)
            Lig = Lig + 1
        Next i
        '... la suite
        Lig = Lig + 1
        .Cells(Lig, "S") = "Il y a " & Me.Controls.Count & " controls dans l'userform"
    End With
End Sub

Ceci est faux :
 
Cells(Cpt, 19).Value = Ctrl.Name
Range("S1").Value = Ctrl.Name

Private Sub CommandButton4_Click()
Dim Ctl As Control
Dim Lab() As String, Command() As String, Txt() As String, Autre() As String
Dim Lb As Integer, Cd As Integer, Tx As Integer, Aut As Integer
ReDim Lab(0): ReDim Command(0): ReDim Txt(0): ReDim Autre(0)
Dim Mess As String, i As Integer, CR
CR = Chr(13)
    For Each Ctl In Me.Controls
        Select Case TypeName(Ctl)
        Case "Label": ReDim Preserve Lab(Lb): Lab(Lb) = Ctl.Name: Lb = Lb + 1
        Case "CommadButton": ReDim Preserve Command(Cd): Command(Cd) = Ctl.Name: Cd = Cd + 1
        Case "TextBox": ReDim Preserve Txt(Tx): Txt(Tx) = Ctl.Name: Tx = Tx + 1
        Case Else: ReDim Preserve Autre(Aut): Autre(Aut) = Ctl.Name: Aut = Aut + 1
        End Select
    Next Ctl
    'Exemple d'affichage par catégorie de contrôles.
    Mess = "Il y a " & Lb & " Label" & CR
    For i = 0 To Lb - 1
    Mess = Mess & Lab(i) & CR
    Next i
    Mess = Mess & "Il y a " & Tx & " TextBox" & CR
    For i = 0 To Tx - 1
    Mess = Mess & Txt(i) & CR
    Next i
    '... la suite
    Mess = Mess & "Il y a " & Me.Controls.Count & " controls dans l'userform"
    MsgBox Mess
End Sub