Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i&
If Target.Address = "$A$1" Then
For i& = 5 To 10
Range("a2").Borders(i&).LineStyle = xlNone
Next i&
If Range("a1") = "KO" Then
With Range("a2").Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 4
End With
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
With Target.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="OK,KO"
End With
End If
End Sub