Re:
Salut,
En passant par l'évènement SelectionChange, on arrive à faire ce quer tu demandes. A mettre dans le code de ta feuille. Ici le lien est en A1
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+++