XL 2010 [RESOLU] Test activecell appartient à une plage

Sub test()
If Not Application.Intersect(ActiveCell, Range("Maplage")) Is Nothing Then '<== A adapter
    MsgBox "OK"
Else
    MsgBox "PAS OK"
End If
End Sub

Sub test()
Dim ws As Worksheet, plg As Range
Set ws = ThisWorkbook.Worksheets("maFeuille")
Set plg = ws.Range("C1:C" & ws.Range("C" & Rows.Count).End(xlUp).Row)
If Not Intersect(ActiveCell, plg) Is Nothing Then MsgBox ActiveCell.Address
End Sub

Sub Essai()
Dim plg As Range
   With ThisWorkbook.Worksheets("maFeuille")
      Set plg = .Range("C1:C" & .Range("C" & Rows.Count).End(xlUp).Row)
      If plg.Count = Union(plg, ActiveCell).Count Then
         MsgBox "Cellule active INCLUSE dans plg.", vbInformation
         'suite du code
      Else
         MsgBox "Cellule active ABSENTE de plg.", vbExclamation
         'suite du code
      End If
   End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal r As Range)
On Error Resume Next
Select Case Intersect(r, Columns(3))
Case "Bazinga!"
'
Case Else
MsgBox "https://www.youtube.com/watch?v=Lbb5AkLWDzQ"
End Select
End Sub