Private Sub Valider_Click()
If TextBox1.Value <> "" Then
Sheets("Feuil1").Range("B4") = TextBox1.Value
End If
End Sub
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Sheets("Feuil1").Range("b4").Value = OptionButton1.Caption
End Sub