Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range
Set Plage = Range(Cells(1, 2), Cells(Cells(65536, 3).End(xlUp).Row, 3))
If Application.Intersect(Target, Plage) Is Nothing Then
'MsgBox "Hors cible."
Else
'MsgBox "Dans la cible."
RecupereDansCollection
End If
End Sub