Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Détecter les clics dans une plage contenant des données
Dim maplage
maplage = Range("plage").Address
If Not Intersect(Target, Range(maplage)) Is Nothing Then
MsgBox "Clic dans la grille"
End If
End Sub