Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then
NumRelance = (Target.Row - 3) Mod 3
If NumRelance = 1 Then
If Target <> "" Then
Target.Offset(1, 0).Interior.ColorIndex = 3
Else
Target.Offset(1, 0).Interior.ColorIndex = xlNone
End If
End If
End If
End Sub