Salut,
En passant par l'évènement selectionchange de ta feuille, à priori on arrive à faire ce que tu demandes, si tonlien est en A1 par exemple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
End With
If Not Application.Intersect(Target, [A1]) Is Nothing Then MsgBox "Possible"
End Sub
A+++