Bug d'affichage pour masquer des lignes

Bonjour,

J'ai un souci:

J'ai une macro qui me permet d'afficher ou de masquer des lignes pour un questionnaire.
Les problème c'est que les lignes impactées contiennent des cases d'options (outil formulaire) et dans des zones de groupement et qu'une fois les ligne masquées, il me reste à la fin un empilement d'objets qui ne veulent pas disparaitre.

Est il possible d'attribuer une ligne à mes zones de groupement pour quelles disparaissent avec ma macro?
exemple:

'Case à cocher 67
Sub Caseàcocher67_Cliquer()
If ActiveSheet.Shapes("Case à cocher 67").OLEFormat.Object.Value = 1 Then
Worksheets("Questionnaire").Rows("60:97").EntireRow.Hidden = True 'Ligne qui fait disparaître
Else
Worksheets("Questionnaire").Rows("43:97").EntireRow.Hidden = False 'Ligne qui fait apparaître
End If
End Sub

dans les lignes 60 à 97, il y a un objet par ligne à faire disparaitre...

Merci de votre aide