Afficher une image lorsque la cellule = OUI [Résolu]

Bonjour,

J'aurais besoin qu'à chaque dois que la valeur d'une cellule est modifiée, une image apparaisse ou non. Voici mon code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Address = "$AB$7" Then

        Application.EnableEvents = False

        If Range("AB7") = "OUI" Then

            Run "AfficheLogo"

        ElseIf Range("AB7") = "NON" Then

            Run "EffaceLogo"

        Else

            Exit Sub

        End If

        Application.EnableEvents = True

    Else

        Exit Sub

    End If

End Sub

Les macros AfficheLogo et EffaceLogo fonctionne très bien. À noter qu'ils sont dans un module à part de la feuille de travail ici.


Merci