Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B8:B18")) Is Nothing Then
Select Case Target.Address(False, False)
Case "B8": MsgBox "message pour la cellule B8", vbInformation
Case "B9": MsgBox "message pour la cellule B9", vbInformation
Case "B10": MsgBox "message pour la cellule B10", vbInformation
Case "B11": MsgBox "message pour la cellule B11", vbInformation
Case "B12": MsgBox "message pour la cellule B12", vbInformation
Case "B13": MsgBox "message pour la cellule B13", vbInformation
Case "B14": MsgBox "message pour la cellule B14", vbInformation
Case "B15": MsgBox "message pour la cellule B15", vbInformation
Case "B16": MsgBox "message pour la cellule B16", vbInformation
Case "B17": MsgBox "message pour la cellule B17", vbInformation
Case "B18": MsgBox "message pour la cellule B18", vbInformation
End Select
End If
End Sub