XL 2016 conditionner l'écriture d'un Label par un choix dans une ComboBox

Private Sub BtValider_Click()
    MsgBox "OK"
    For i = 1 To DerniereLigne - 1
       Select Case Controls("ComboBox" & i + 1)
        Case "OK"
        Set Obj = Me.Controls.Add("forms.Label.1")        'Alors on met un nouveau Label (voir différence avec le premier If dans la Caption
            With Obj
            .BorderStyle = 1                                'le fait qu'il ait des bordures
            .Name = "Label" & i                          'On défini le nom de chaque Label, ici on appelera donc tout les Labels Label1, Label2...
            .Object.Caption = "CORRECT"                           'On demande ici à l'objet de ne rien mettre dans sa caption dans le cas présent, pour pouvoir, plus tard venir effectuer la sanction.
            .Left = 400                                 'la colonne ajouté lors de cette itération se déplace de 100 fois j sur la gauche
            .Top = 20 * i                                  'La ligne ajouté lors de cette itération se déplace de 20 fois i vers le bas.
            .Width = 100                                    'L'épaisseur de la case est de 100
            .Height = 20                                    'La hauteur de la case est de 20 (on remarque qu'on utilise les même hauteur qu'écart entre les lignes et les colonnes pour permettre la création d'un tableau
            .FontSize = 10                                  'taille de l'écriture
            .TextAlign = fmTextAlignCenter                  'centrage du texte
         End With
          End Select
    Next i
  ' ComboBox1.ForeColor = &HFF&
End Sub