Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [C76] <> 0 And [C75] <> 0 Then
If Not [C76] = [C75] Then
Const Texte As String = ""
For i = 1 To 3
Cells(76, 3).Font.ColorIndex = 2
Cells(76, 3).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Do While Timer < Start + 2 / 100
Loop
If n Mod 5 = 0 Then
Cells(76, 3).Interior.ColorIndex = xlNone
Cells(76, 3).Font.ColorIndex = 1
End If
Next n
Next i
End If
End If
If [H16] <> 1 Then
CommandButton8.Visible = False
Else
CommandButton8.Visible = True
End If
If [H30] <> 1 Then
CommandButton9.Visible = False
Else
CommandButton9.Visible = True
End If
If [H48] <> 1 Then
CommandButton10.Visible = False
Else
CommandButton10.Visible = True
End If
If [H388] <> 1 Then
CommandButton11.Visible = False
Else
CommandButton11.Visible = True
End If
If [C10] = "Technique" Then [E10] = ""
If [C24] = "Technique" Then [E24] = ""
If [C42] = "Site Technique" Then [F42] = ""
'--------------------------------------------------------------------------
If Not Intersect(Target, Range("C76")) Is Nothing Then
If Range("c76") <> Range("c75") Then
If Not (Range("c76").Comment Is Nothing) Then Range("c76").ClearComments
Range("c76").AddComment '<-----------------------------------------------erreur a ce niveau
Range("c76").Comment.Visible = False
Range("c76").Comment.Text Text:="La distance de SAR vers SDR est differente de la somme de deux distances SAR_PJ et PJ-SDR"
Else
Range("c76").ClearComments
End If
End If
End Sub