trier des données et les copier sur une autre feuille

Bonjour,

Je souhaite trier des données, qui seront mises à jour chaque jour, et les recopier sur une autre feuille du classeur.

Le tri se fait sur 2 collones et il ne faut pas recopier les doublons.
Voici un code qu j'ai fait, mais qui ne fonctionne pas correctement.

Private Sub CommandButton1_Click()


Dim existant As Boolean
For i = 1 To 50000
existant = True

If ActiveWorkbook.Worksheets("essai").Range("A" & i).Value = "" Then
existant = False
Exit For


End If

If ActiveWorkbook.Worksheets("essai").Range("D" & i).Value = ActiveWorkbook.Worksheets("données").Range("L" & i).Value And ActiveWorkbook.Worksheets("amalgame recoupe P14").Range("E" & i).Value = ActiveWorkbook.Worksheets("Données").Range("M" & i).Value Then
existant = True
Exit For
End If
Next

If existant = False Then


ActiveWorkbook.Worksheets("essai").Range("A" & i) = ActiveWorkbook.Worksheets("Données").Range("A" & i)
......
ActiveWorkbook.Worksheets("essai").Range("K" & i) = ActiveWorkbook.Worksheets("Données").Range("N" & i)

End If


End Sub

La boucle ne se fait pas automatiquement, je dois appuyer sur le bouton pour chaque ligne et les doublons s'affichent quand même.

Quelqu'un a t'il une solution?
Merci