bonjour
essaye ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set x = Application.Intersect(Target, Range("A1,a5,b2"))
If Not x Is Nothing Then
Application.StatusBar = "Vous êtes sur la cellule : " & Target.Address
Else
Application.StatusBar = ""
End If
End Sub
cette macro indique lorsque que l'on clique dessus les cellules a1, a5 et b2
un message dans la barre d'état.
salut
Hervé