Suppression des doublant selon des condition rapidement

Bonjour à tous,
J'ai crée un macro qui permet de supprimer les doublant dans un tableau excel avec des conditions. Le macro fonctionne très bien mais puisque j'ai beaucoup des données, il prend beaucoup du temps.
Il y a t-il une autre solution pour supprimer les doublant selon des condition rapidement?
Merci d'avance,
Voila mon code;

<'Supprimer les doublant
I = 2
.Range("A" & I).Select
Do While Not (IsEmpty(ActiveCell))
   For J = I + 1 To DL
       If .Range("A" & I) = .Range("A" & J) Then
       If .Range("D" & I) = 0 Then
          .Range("F" & J).Value = .Range("F" & I).Value
          .Rows(I).EntireRow.Delete Shift:=xlUp
          I = I - 1
        ElseIf .Range("D" & I) = 1 Then
        .Range("F" & I).Value = .Range("F" & J).Value2
         .Rows(J).EntireRow.Delete Shift:=xlUp
        End If
        
          J = J + 1
       Else
       End If
   Next
   I = I + 1
   .Range("A" & I).Select
Loop>