Validation des données

bonjour à tous,

je suis débutante et cela fait plusieurs semaines que j'essaie de valider mes données de la userform dans la feuilles "données".
je n'y arrive pas.
Voici mon privatesub :

Private Sub OptionButton1_Click()
Sheets("données").Range("C2") = OptionButton1.Value
    Dim cellule As String   ' commande préparée
Dim Ctrl As Control     ' controles formulaire
cellule = ""            ' initialisation libellés
    For Each Ctrl In Me.Controls    ' balayage des controles
        If TypeOf Ctrl Is MSForms.CheckBox Then ' recherche des checkbox
            If Ctrl.Value = True Then           ' le checkbox est coché
                    ' si nouvelle ligne ajout saut de ligne
                If Not cellule = "" Then cellule = cellule & (10)
                    ' récupération libellé checkbox
                cellule = cellule & "- " & Ctrl.Caption
                    ' si pas de combobox associé suppression controle erreur
                 On Error Resume Next
               If Not Me.Controls(Ctrl.Tag) < 0 Then ' si le combobox est choisi
                    cellule = cellule & " " & Me.Controls(Ctrl.Tag)
                End If
                End If
End If
Next
End Sub

le problème c'est quand je coche : commande préparée : il s'affiche FAUX OU VRAI dans ma feuille excel...
J'ai 3 proposition à cocher...

HELP HELP
Merci d'avance
en espérant que j'ai été assez claire.
SLTS

EDIT: Ajout de la coloration syntaxique.