XL 2016 Afficher un graphe si le segment qui l'active est activé avec la sélection d'un thème

Bonsoir tout le monde,
un peu novice en VBA, j'essaie de machouiller un truc qui rend le sourir, alors j'explique, j'ai des segments, ou chaque segment affiche soit un graphe, soit des résultat filtré, je souhaiterais que l'utilisateur après avoir utiliser le segment 1 relié à un graphe, lui apparait alors le segment 2, et à partir du moment qu'il sélectionne un titre dans le segment 2 , lui apparait le graphe lié au segment, ainsi de suite.
voici ce que j'ai pu assembler des bout de codes mais bon ça plante sur la ligne des slicer du segment :

Sub masqueApparait01()

For Each Shape In ActiveSheet.Shapes

If ActiveSheet.SlicerCaches("Segment_Ligne").Selected = True Then

ActiveSheet.Shapes.Range(Array("Ligne 2")).Visible = True
ActiveSheet.Shapes.Range(Array("Graphique 8")).Visible = True
Else
ActiveSheet.Shapes.Range(Array("Ligne 2")).Visible = True
ActiveSheet.Shapes.Range(Array("Graphique 8")).Visible = True
End If

Shape.Visible = True
Next

End Sub