Private Sub Worksheet_Change(ByVal Target As Range)
dep1 = 1
dep2 = 5
dep3 = 9
dep4 = 11
vv = Target.Column
If vv = 1 Then
tv = Target.Value
If tv = dep1 Or tv = dep2 Or tv = dep3 Or tv = dep4 Then
Target.Font.Bold = True
Target.Offset(0, 1).Font.Color = RGB(122,25,180)
Else
Target.Fond.Bold = False
'etc....
End If
End If
End Sub