Excel 365 - problème fonction plan >grouper

Bonjour à tous,

Dans un fichier excel, j'ai crée 2 noms correspondant à des plages de lignes.

J'ai fait une macro pour choisir de faire apparaître la plage, en fonction du nom sélectionné dans une liste déroulante.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H1")) Is Nothing Then
Select Case Range("H1")
Case "A": apparaitre_A
Case "B": apparaitre_B
End Select
End If
End Sub

Sub apparaitre_A()
Rows.EntireRow.Hidden = False
Range("B").EntireRow.Hidden = True
Application.Goto Range("A1"), True
End Sub

Chacune de ces plages correspond à 3 tableaux différents que j'ai séparé en faisant des groupes (plage A tableau 123, plage B tableau 456 etc..) :

Le problème arrive quand je veux cliquer sur les 1, 2 ou3 en haut a gauche pour ouvrir ou fermer les groupes. Dans la photo ci dessous, j'ai cliqué sur le "2" après avoir sélectionné mon groupe B:
En gros j'ai une partie des tableau du groupe A qui apparait, alors alors qu'il ne devrait pas apparaitre...

Quelqu'un aurait une idée du problème?
Merci d'avance pour votre aide.