Par exemple, dans le code de la feuille contenant l'ActiveX "OptionButton1"
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2]) Is Nothing Then OLEObjects("OptionButton1").Visible = [B2] = 1
End Sub
Tu peux le faire en utilisant un peu de vba événementiel et des objets de la barre d'outils "boite à outils contrôles", en utilisant les propriétés de l'objet.
Ci-joint un exemple. Si tu mets 1 dans la cellule A1, le bouton disparaît.