Je vous aurais bien joint mon code mais les ports sont verrouillés ici.Un simple copié collé sur le forum (en utilisant les balises de code pour la mise en forme) aurait suffit.. ^^
Sub Macro1() Dim shp1 As Shape Set shp1 = Worksheets(1).Shapes("Option button 1") Debug.Print shp1.ControlFormat.Value shp1.ControlFormat.Value = 1 End Sub