'---affiche/masque les cases du groupe Forme---
masque = F.DrawingObjects("Case d'option 12").Value = xlOff 'case Permanent non sélectionnée
For Each o In F.DrawingObjects(Array("Case d'option 09", "Case d'option 10", "Case d'option 11")) 'cases Plat Courbé Conique
If masque Then o.Value = xlOff 'désélectionne
o.Visible = Not masque
Next o