Yves, tu es trop fort!......
tu n'imagines pas combien cela va me dépanner!..
je me suis permis de 'rectifir'(c'est un bien gd mot) ton code pour les eventuels interessés (juste des erreurs de frappes).
VRAIMENT MERCI, T'ES UN CHEF!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sel As Range
'pour une plage
Set Sel = Range('A1:A56') ' plage
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
MsgBox 'La cellule appartient au bloc A1:A56 '
Else
MsgBox 'La cellule n'appartient pas au bloc A1:A56'
End If
End Sub