Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'déclaration des variables
Dim plage As Range
'définition de la plage
Set plage = Range('a1:b5') '<==== a adapter
'si la cellule active est dans la plage, alors
If Not Intersect(Target, plage) Is Nothing Then
'on envoi un message
MsgBox 'Vous etes sur la plage.'
'fin de condition
End If
End Sub