case a cocher avec deux macro

je relance un post au qu'a ou

j'aurais besoin de vos lumieres .

j'ai une feuille sur laquelle j'ai une case a cocher .

j'aimerais que si la casse est coché la ligne 5,6 est une taille de 12 et la ligne 8 une taille de 20.
mais aussi que si la casse n'est pas de coché les lignes 5.6 et 8 soient masquées.

j'ai ce debut de code

Sub Caseàcocher8_Clic()
If Caseàcocher8.Value = True Then
Rows("5:6").RowHeight = 12
Rows("8").RowHeight = 20
Else
Range("5:6, 8:8").EntireRow.Hidden = True
End If
End Sub

mais je suis pas sur d'etres sur la bonne voie.

pourriez vous me diriger vers la solution

je mets le debut de mon fichier

par avance merci