userform inserer resultat "OptionButton"

[/COLOR]Private Sub CommandButton1_Click()
  Dim L As Integer
  L = Sheets("saisie").Range("d65536").End(xlUp).Row + 1
  Sheets("saisie").Activate
  If ComboBox1 = "" Then
    MsgBox "Vous n'avez pas saisi le NOM !"
    ComboBox1.SetFocus
    Exit Sub
  End If
  With Sheets("saisie")
    .Range("d" & L).Value = ComboBox1.Value  'nom
    .Range("i" & L).Value = ComboBox2.Value  'nb carnet
    .Range("c" & L).Value = Label2  'date
    If Me.OptionButton3.Value = True Then
      .Range("G" & L).Value = Me.OptionButton3.Caption
    End If
    If Me.OptionButton4.Value = True Then
      .Range("H" & L).Value = Me.OptionButton4.Caption
    End If
  End With
  ComboBox1.SetFocus
End Sub