Pb mise en forme via macros

Bonjour,

Tout d'abord je suis nouvelle sur ce site donc je ne sais pas si je vais reussir à joindre mon fichier pour etre plus claire.

Voila mon problème : j'ai crée des macros pour que dans un fichier xls les lignes se mettent d'une couleur si la valeur dans la colonne 1 de cette ligne vaut "tant" et d'une autre couleur si elle vaut "autrechose".

Je rencontre 2 problemes avec mes macros :
1°) quand je change la valeur cellule 1, la ligne garde quelques mises en forme relatives à la valeur precedente
2°) quand je supprime une ligne il y a un message d'erreur : "erreur d'execution '13' Incompatibilité de type" et en mettant fin ca redevient normal mais je sais pas pourquoi il y a ce message.

Voici ma macro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then

If Target.Value <> "" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 62)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

If Target.Value = "Closed" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 62)).Interior.ColorIndex = 37
Else
If Target.Value = "Backlog" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 62)).Interior.ColorIndex = 35
Else
If Target.Value = "Ordered" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 62)).Interior.ColorIndex = 40
Else
If Target.Value = "Budgeted" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 62)).Interior.ColorIndex = 39
Else
If Target.Value = "Cancelled" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 62)).Select
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If
End If
End If
End If
End If
End If
End If
End Sub

J'espere que je suis comprehensible et merci par avance pour votre aide.
Claire