[EXCEL] Associer un SCRIPT VBA à une cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Intersection As Range, Plage As Range

    ' Définir la plage de la liste ( en supposant que ce ne soit pas un objet Excel [ combobox ] )
    Set Plage = Range("B2:B6")

    Set Intersection = Application.Intersect(Target, Plage)

    If (Intersection Is Nothing) Then
        MsgBox "À l'extérieur de la plage"
    Else
        MsgBox "À l'intérieur de la plage"
        ' Ici le code spécifique au clique dans une cellule de la liste visé !
        ' ...

    End If
    
End Sub
'