XL 2010 Sélection d'image

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    Premier_croissant.Visible = True
    Nouvelle_lune.Visible = False
    Dernier_croissant.Visible = False
    Pleine_lune.Visible = False
    CheckBox2 = False
    CheckBox3 = False
    CheckBox4 = False
Else
    Premier_croissant.Visible = False
End If
End Sub

Sub ToutesLunesVisible()    'Rend visible toutes les lunes
    For i = 2 To 9
        ActiveSheet.Shapes("Image " & i).Visible = True
    Next i
End Sub
Sub ToutesLunesInvisible()  'Rend invisible toutes les lunes
    For i = 2 To 9
        ActiveSheet.Shapes("Image " & i).Visible = False
    Next i
End Sub
Sub Lunes3()                'Rend visible toutes la lune 3
    ActiveSheet.Shapes("Image " & 3).Visible = True
End Sub

Private Sub PremierCroissant_Click()
Premier_Croissant.BringToFront
End Sub

Private Sub PremierQuartier_Click()
Premier_Quartier.BringToFront
End Sub

Private Sub GibeuseCroissante_Click()
Gibeuse_Croissante.BringToFront
End Sub

Private Sub PleineLune_Click()
Pleine_lune.BringToFront
End Sub

Private Sub GibeuseDeCroissante_Click()
Gibeuse_Decroissante.BringToFront
End Sub

Private Sub DernierCroissant_Click()
Dernier_Croissant.BringToFront
End Sub

Private Sub DernierQuartier_Click()
Dernier_Quartier.BringToFront
End Sub

Private Sub NouvelleLune_Click()
Nouvelle_lune.BringToFront
End Sub

Dim OB() As New Classe1

Private Sub Workbook_Open()
Dim o As Object, n%
For Each o In Feuil1.OLEObjects 'CodeName de la feuille
    If TypeName(o.Object) = "OptionButton" Then ReDim Preserve OB(n): Set OB(n).OB = o.Object: n = n + 1
Next
End Sub

Public WithEvents OB As MSForms.OptionButton

Private Sub OB_Click()
OB.Parent.OLEObjects(Left(OB.Name, 8)).BringToFront
End Sub