Supprimer doublons

Bonjour,

j'ai une macro qui utilise les tableaux dynamiques VBA pour supprimer les valeurs opposées dans ma colonne A (+ de 35000 lignes). Si j'ai deux veuleurs 500 et -500, les deux valeurs sont supprimées.

Je veux l'adapter pour un tableau ("A2:N") et que les valeurs à vérifier s'il existe des opposées se trouvent maintenant dans la colonne M.

Option Explicit
Sub SupOppos()
Dim Derlig As Variant, i As Variant, j As Variant, Tablo, Start

Application.ScreenUpdating = False
Start = Timer
With Sheets("test")
Derlig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:A" & Derlig)
' Boucle sur toutes les valeurs de la plage
For i = 1 To Derlig - 1
If Tablo(i, 1) <> "" Then 
For j = i + 1 To Derlig
If Tablo(j, 1) = -Tablo(i, 1) Then 
Tablo(j, 1) = ""
Tablo(i, 1) = "" 
Exit For
End If
Next j
End If
Next i
.Range("A2").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
End With
MsgBox Application.RoundUp(Timer - Start, 0) & " secondes"
End Sub

Merci d'avance.

Pour le moment j'ai une macro qui fait le travail, mais avec 45000 lignes il faudra attendre 5mn pour que l’exécution se termine.