Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C76")) Is Nothing Then
If [C76] <> [C75] Then
[C76].AddComment
[C76].Comment.Visible = False
[C76].Comment.Text Text:="La distance de SAR vers SDR est differente de la somme de deux distances SAR_PJ et PJ-SDR"
Else
[C76].ClearComments
End If
End If
End Sub