Sub MasquerZoneGroupe()
ActiveSheet.Shapes("Group 1").Ungroup
ActiveSheet.Shapes("Group Box 1").Visible = False 'masque la zone de groupe
ActiveSheet.Shapes.Range(Array("Group Box 1", "Option Button 2", "Option Button 4", "Option Button 6")).Group
End Sub