Importer des données sur un boutton option

Bonjour j’aimerais importer des donnée sur un USF mais je bloque sur sur les boutton option

voici une partie du code :

Private Sub CmdRecord_Click() 
.Cells( 1, 2) = IIf(Me.optMale = True, "Homme", "Femme")
.Cells(2, 2) = Me.email.Text
.Cells(3, 2) = Me.Adresse.Text
.Cells(4, 2) = Me.date.Text
Fin sub
Private Sub CmdImporter_Click()
Me.email.Text = Worksheets("BDD").Cells(2, 2)
Me.date.Text = Worksheets("BDD").Cells(4, 2)
Me.Adresse.Text = Worksheets("BDD").Cells( 3, 2)
If UCase (.Cells(1, 2)) = "Homme" Then Me.optMale.Value = True Else Me.optFemale.Value = True 
fin sub

aidez moi a trouver le problème