'Afichage image micro

Private Sub CheckBox21_Click()

Me.Shapes("micro1").Visible = Me.CheckBox21

End Sub

Private Sub CheckBox22_Click()
Me.Shapes("micro2").Visible = Me.CheckBox22

End Sub

Private Sub CheckBox23_Click()
Me.Shapes("micro3").Visible = Me.CheckBox23

End Sub


Private Sub CheckBox24_Click()
Me.Shapes("micro4").Visible = Me.CheckBox24
End Sub

Private Sub CheckBox25_Click()
Me.Shapes("micro5").Visible = Me.CheckBox25
End Sub

Private Sub CheckBox27_Click()
Me.Shapes("micro7").Visible = Me.CheckBox27
End Sub

Private Sub CheckBox28_Click()
Me.Shapes("micro8").Visible = Me.CheckBox28
End Sub

Private Sub CheckBox29_Click()
Me.Shapes("micro9").Visible = Me.CheckBox29
End Sub


Private Sub CheckBox30_Click()
Me.Shapes("micro10").Visible = Me.CheckBox30
End Sub

Private Sub CheckBox31_Click()
Me.Shapes("micro11").Visible = Me.CheckBox31
End Sub

Private Sub CheckBox32_Click()
Me.Shapes("micro12").Visible = Me.CheckBox32
End Sub

' Affichage image malade


Private Sub CheckBox1_Click()
Me.Shapes("malad1").Visible = Me.CheckBox1
End Sub

Private Sub CheckBox2_Click()
Me.Shapes("malad2").Visible = Me.CheckBox2
End Sub

Private Sub CheckBox3_Click()
Me.Shapes("malad3").Visible = Me.CheckBox3
End Sub

Private Sub CheckBox4_Click()
Me.Shapes("malad4").Visible = Me.CheckBox4
End Sub



Private Sub CheckBox5_Click()
Me.Shapes("malad5").Visible = Me.CheckBox5
End Sub

Private Sub CheckBox6_Click()
Me.Shapes("malad6").Visible = Me.CheckBox6
End Sub

Private Sub CheckBox7_Click()
Me.Shapes("malad7").Visible = Me.CheckBox7
End Sub

Private Sub CheckBox8_Click()
Me.Shapes("malad8").Visible = Me.CheckBox8
End Sub

Private Sub CheckBox9_Click()
Me.Shapes("malad9").Visible = Me.CheckBox9
End Sub

Private Sub CheckBox10_Click()
Me.Shapes("malad10").Visible = Me.CheckBox10
End Sub

Private Sub CheckBox11_Click()
Me.Shapes("malad11").Visible = Me.CheckBox11
End Sub

Private Sub CheckBox12_Click()
Me.Shapes("malad12").Visible = Me.CheckBox12
End Sub

Private Sub CheckBox13_Click()
Me.Shapes("malad13").Visible = Me.CheckBox13
End Sub

'Affichage image congés

Private Sub CheckBox41_Click()
Me.Shapes("soleil41").Visible = Me.CheckBox41
End Sub

Private Sub CheckBox42_Click()
Me.Shapes("soleil42").Visible = Me.CheckBox42
End Sub


Private Sub CheckBox43_Click()
Me.Shapes("soleil43").Visible = Me.CheckBox43
End Sub

Private Sub CheckBox44_Click()
Me.Shapes("soleil44").Visible = Me.CheckBox44
End Sub

Private Sub CheckBox45_Click()
Me.Shapes("soleil45").Visible = Me.CheckBox45
End Sub

Private Sub CheckBox46_Click()
Me.Shapes("soleil46").Visible = Me.CheckBox46
End Sub

Private Sub CheckBox47_Click()
Me.Shapes("soleil47").Visible = Me.CheckBox47
End Sub

Private Sub CheckBox48_Click()
Me.Shapes("soleil48").Visible = Me.CheckBox48
End Sub

Private Sub CheckBox49_Click()
Me.Shapes("soleil49").Visible = Me.CheckBox49
End Sub

Private Sub CheckBox50_Click()
Me.Shapes("soleil50").Visible = Me.CheckBox50
End Sub

Private Sub CheckBox51_Click()
Me.Shapes("soleil51").Visible = Me.CheckBox51
End Sub

Private Sub CheckBox52_Click()
Me.Shapes("soleil52").Visible = Me.CheckBox52
End Sub

Private Sub CheckBox53_Click()
Me.Shapes("soleil53").Visible = Me.CheckBox53
End Sub


'Affichage image Help Me

Private Sub CheckBox61_Click()
Me.Shapes("Aide61").Visible = Me.CheckBox61
End Sub

Private Sub CheckBox62_Click()
Me.Shapes("Aide62").Visible = Me.CheckBox62
End Sub


Private Sub CheckBox63_Click()
Me.Shapes("Aide63").Visible = Me.CheckBox63
End Sub


Private Sub CheckBox64_Click()
Me.Shapes("Aide64").Visible = Me.CheckBox64
End Sub

Private Sub CheckBox65_Click()
Me.Shapes("Aide65").Visible = Me.CheckBox65
End Sub

Private Sub CheckBox66_Click()
Me.Shapes("Aide66").Visible = Me.CheckBox66
End Sub

Private Sub CheckBox67_Click()
Me.Shapes("Aide67").Visible = Me.CheckBox67
End Sub

Private Sub CheckBox68_Click()
Me.Shapes("Aide68").Visible = Me.CheckBox68
End Sub

Private Sub CheckBox69_Click()
Me.Shapes("Aide69").Visible = Me.CheckBox69
End Sub

Private Sub CheckBox70_Click()
Me.Shapes("Aide70").Visible = Me.CheckBox70
End Sub

Private Sub CheckBox71_Click()
Me.Shapes("Aide71").Visible = Me.CheckBox71
End Sub


Private Sub CheckBox72_Click()
Me.Shapes("Aide72").Visible = Me.CheckBox72
End Sub

Private Sub CheckBox73_Click()
Me.Shapes("Aide73").Visible = Me.CheckBox73
End Sub


'Affichage Image Superchien

Private Sub checkbox81_Click()
Me.Shapes("Super81").Visible = Me.CheckBox81

End Sub


Private Sub checkbox82_Click()
Me.Shapes("Super82").Visible = Me.CheckBox82

End Sub

Private Sub checkbox83_Click()
Me.Shapes("Super83").Visible = Me.CheckBox83

End Sub


Private Sub checkbox84_Click()
Me.Shapes("Super84").Visible = Me.CheckBox84

End Sub

Private Sub checkbox85_Click()
Me.Shapes("Super85").Visible = Me.CheckBox85

End Sub


Private Sub checkbox86_Click()
Me.Shapes("Super86").Visible = Me.CheckBox86

End Sub

Private Sub checkbox87_Click()
Me.Shapes("Super87").Visible = Me.CheckBox87

End Sub

Private Sub checkbox88_Click()
Me.Shapes("Super88").Visible = Me.CheckBox88

End Sub

Private Sub checkbox89_Click()
Me.Shapes("Super89").Visible = Me.CheckBox89

End Sub

Private Sub checkbox90_Click()
Me.Shapes("Super90").Visible = Me.CheckBox90

End Sub

Private Sub checkbox91_Click()
Me.Shapes("Super91").Visible = Me.CheckBox91

End Sub

Private Sub checkbox92_Click()
Me.Shapes("Super92").Visible = Me.CheckBox92

End Sub

Private Sub checkbox93_Click()
Me.Shapes("Super93").Visible = Me.CheckBox93

End Sub