suprimer des lignes de chiffre en doublon

Sub es()
 Dim t(), t1(), i As Long, c As Byte
  Application.ScreenUpdating = 0
  t = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row)
  ReDim t1(1 To UBound(t), 1 To 3)
  For i = 1 To UBound(t)
  If t(i, 1) <> t(i, 2) Then
  x = x + 1
  For c = 1 To 3: t1(x, c) = t(i, c): Next c
  End If
  Next i
  Range("a2:c" & Cells.Find("*", , , , , xlPrevious).Row).ClearContents
  Range("a2").Resize(x, 3) = t1
End Sub

Sub es()
 Dim t(), t1(), i&, c&, x&
  Application.ScreenUpdating = 0
  t = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row)
  ReDim t1(1 To UBound(t), 1 To 3)
  For i = 1 To UBound(t)
  If t(i, 1) <> t(i, 2) And t(i, 3) <> t(i, 2) And t(i, 3) <> t(i,1) Then
  x = x + 1
  For c = 1 To 3: t1(x, c) = t(i, c): Next c
  End If
  Next i
  Range("a2:c" & Cells.Find("*", , , , , xlPrevious).Row).ClearContents
  Range("a2").Resize(x, 3) = t1
End Sub