excel 2000 barrer une cellule en MFC

Sub test()
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=3"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 45
    .Gradient.ColorStops.Clear
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0)
    .Color = 16777215
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0.45)
    .Color = 16777215
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0.5)
    .Color = 255
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0.55)
    .Color = 16777215
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(1)
    .Color = 16777215
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveCell.FormulaR1C1 = "3"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Value = "MOPOMPI M" Or Target.Value = "POMPI" Then
    With Target.Offset(0, -2).Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .Color = -16776961
        .Weight = xlThick
    End With
Else
Target.Offset(0, -2).Borders(xlDiagonalUp).LineStyle = xlNone
End If
End Sub