XL 2010 VBA créer une liste sans doublon selon conditions

Sub Liste()
    Dim T, T_out, DL, i, IndexT_out
    Application.ScreenUpdating = False
    With Sheets("bdd")
        DL = .[A65500].End(xlUp).Row
        T = .Range(.Cells(3, "A"), .Cells(DL, "E")) ' Transfert données dans array
        ReDim T_out(1 To DL)
    End With
    Cond1 = [B1]: Cond2 = [B2]: Cond3 = [B3]: Cond4 = [B4]: IndexT_out = 1
    For i = 1 To UBound(T)
        If T(i, 2) = Cond1 And T(i, 3) = Cond2 And T(i, 4) = Cond3 And T(i, 5) = Cond4 Then
            T_out(IndexT_out) = T(i, 1)
            IndexT_out = IndexT_out + 1
        End If
    Next i
    [F:F].ClearContents
    [F1].Resize(DL, 1).Value = Application.Transpose(T_out)                         ' Restitution résultat
    ActiveSheet.Range("$F$1:$F$" & DL).RemoveDuplicates Columns:=1, Header:=xlNo    ' Suppression doublons
End Sub