Autres Worksheets change avec 2 conditions

[a26]

Bonjour à tous,
Je n'arrive pas à mettre 2 conditions dans ma feuille avec worksheets pour ajout dans une liste de données d'après un fichier de JB ajout liste.
Ma feuille ou se trouvent la validation est Ecritures et ma feuille ou se trouvent les données et Saisies.
Voilà le code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [Saisies], 0)) Then
If MsgBox("On ajoute?", vbYesNo) = vbYes Then
[Libellé].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Saisies").[Libellé].Sort key1:=Sheets("Saisies").Range("C2")
ElseIf Target.Column = 7 And Target.Count = 1 Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [Saisies], 0)) Then
If MsgBox("On ajoute?", vbYesNo) = vbYes Then
[Tiers].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Saisies").[Tiers].Sort key1:=Sheets("Saisies").Range("E2")
Else
Application.Undo
End If
End If
End If
End If
End If
End If
End If
End Sub
Merci beaucoup,
a26