Microsoft 365 Afficher ou masquer une shape selon la cellule sélectionnée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [Y22]) Is Nothing Then
        Shapes("Image 2").Visible = True
    Else
        Shapes("Image 2").Visible = False
    End If
End Sub

'renouvelez l’opération pour d'autres shapes autant que vous le voulez  de la même facon
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Shapes("toto").Visible = (Target.Address(0, 0) = "Y2")

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [Y22]) Is Nothing Then
        Shapes("Image 2").Visible = True
        ' Mettre ici les autres actions quand l'image est affichée
    Else
        Shapes("Image 2").Visible = False
        ' Mettre ici les autres actions quand l'image est masquée
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Shapes("toto").Visible = (Target.Address(0, 0) = "Y2")
    
    If Not Intersect(Target, [Y22]) Is Nothing Then
        ' Mettre ici les autres actions quand l'image est affichée
    Else
        ' Mettre ici les autres actions quand l'image est masquée
    End If
End Sub