Bonjour,
suggestion :
derrière la feuille elle-même :
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
'