Match a value from one sheet in a list from a second sheet

This code returns run-time error 13 (type mismatch).

Dim TaskWorkingHours As Variant
Dim TaskSheet As Worksheet
Dim TaskList, TaskListTime As Range

Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Range("b6:b400")) Is Nothing Then
    Set TaskSheet = Sheets("LISTE")
    Set TaskList = TaskSheet.Range("AA6:AA60")
    Set TaskListTime = TaskSheet.Range("Y6:Y60")
    TaskWorkingHours = WorksheetFunction.Lookup(2, 1 / (TaskList = Target), TaskListTime)
        If TaskWorkingHours <> "" And TaskWorkingHours <> 0 Then
        Cells(Target.Row, 8) = TaskWorkingHours
        End If
    End If

End Sub