RESOLUT - validation des donnees d'un userform ou autre solution

Private Sub CommandButton1_Click()
Dim Doc As Workbook
Dim Feuil As Worksheet
Dim num As Integer
Sheets("Donnees").Activate
num = Sheets("Donnees").Range("A65536").End(xlUp).Row + 1
Range("A" & num).Value = ComboBox1
Range("B" & num).Value = TextBox1Feuil = Worksheet
For Each Doc In Application.Workbooks
    For Each Feuil In Doc.Worksheets
        If Feuil.Name = ComboBox1 Then
            num = 0
            num = Feuil.Range("A65536").End(xlUp).Row + 1
            Feuil.Range("A" & num) = ComboBox1
            Feuil.Range("b" & num) = TextBox1
        End If
    Next
Next
End Sub

Private Sub CommandButton1_Click()
With Sheets(ComboBox1.Value)
.Range("a2", .Cells(Rows.Count, "a").End(xlUp))(2) = ComboBox1
.Range("b2", .Cells(Rows.Count, "b").End(xlUp))(2) = TextBox1.Value
End With
End Sub

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
For Each Ws In Sheets(Array(ComboBox1.Value, "Donnees"))
With Ws
.Range("a" & .Cells(Rows.Count, 1).End(xlUp).Row + 1) = ComboBox1
.Range("b" & .Cells(Rows.Count, 1).End(xlUp).Row) = TextBox1.Value 'par apport a colonne a
End With
Next Ws
End Sub

Private Sub valider_Click()
If OptionButton7.Value = True Then
        Range("B" & num) = "Fleurs"
    Else
        Range("B" & num) = "" 'pour ne rien afficher
    End If
End sub

Private Sub valider_Click()
If OptionButton7.Value = True Then
        .Range("c2", .Cells(Rows.Count, "c").End(xlUp))(2) = "Fleur" = OptionButton1
    Else

Private Sub valider_Click
ActiveSheet.[C65536].End(xlUp)(2) = IIf(OptionButton7, "Fleur", vbNullString)
End Sub