Grossir les checkboxs

Dim Obj, L As String, g, s, d, h, e, a, b, C, dd ' charge les checkboxs de places
      Dim chaine As String
    If TextBox8 = "" Then Exit Sub
    TextBox8 = UCase(TextBox8)
    Tbl = Split(TextBox8, " ")
    TblEnleve = Tbl
    For i = 0 To UBound(TblEnleve)
        TblEnleve(i) = ""
    Next i
    For i = 0 To UBound(Tbl)
        L = Left(Tbl(i), 1)
        Select Case L
        Case "A"
            a = a + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * a    'top
            g = 900    'left

        Case "B"
            b = b + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * b    'top
            g = 900 + d    'left

        Case "C"
            C = C + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * C    'top
            g = 900 + d * 2    'left
        Case "D"
            dd = dd + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * dd    'top
            g = 900 + d * 3    'left

        End Select

        With Obj
            .Caption = Tbl(i)
            .Left = g: .Top = s: .Width = d: .Height = h
        End With

        VBA.UserForms.Add (Me.Name)
    Next

    IniCheckbox