VBA - Suppression doublon ne fonctionne pas précisément

Bonjour à tous !

J'ai le code suivant:

Sub ExtractSiLigneVideSansDoublon()
Dim i As Integer
Dim j As Integer

i = 4
j = 1

For i = 4 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
    If Range("I" & i) = "" Then
        Sheets("Data").Select
        Range("A" & i).Select
        Selection.Copy
        Sheets("Relance").Select
        Range("A" & j).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End If
i = i + 1
j = j + 1
Next

    ActiveSheet.Range("A1:A100").RemoveDuplicates Columns:=Array(1), _
        Header:=xlYes
End Sub

Cette macro copie des lignes d'un tableau situé dans une feuille "Data" et colle ces lignes dans la feuille "Relance". A la fin de la procédure, les doublons sont supprimés. Le "souci" que j'ai est qu'il laisse un doublon, les cellules A1 et A2 de la feuille "Relance" sont identiques. En revanche la macro fonctionne bien pour tout le reste. Je ne trouve pas l'erreur. Une idée ?

Bonne journée,

SkillzZ