Private Sub Worksheet_Change(ByVal R As Range)
Dim k$, Vide
Application.EnableEvents = False
If Intersect(R, Columns("B:B")) Is Nothing And R.Count > 1 Then Exit Sub
On Error Resume Next
k = R.Hyperlinks(1).TextToDisplay
If k <> Vide Then
R.Interior.Color = xlNone
Else
R.Interior.Color = vbGreen
End If
k = Vide
Application.EnableEvents = True
End Sub