Supprimer les doublons sur une même colonne

Sub doub()

Dim i As Long
Dim t As Long

i = 2
t = 3

Sheets("Cor").Select

Do While Cells(i, 1).Value <> ""

    If Cells(i, 1).Value = Cells(t, 1).Value Then
        Cells(t, 1).EntireRow.Delete
        t = i + 1
    Else
    
    t = t + 1
  
    End If
    
   If Cells(t, 1).Value = "" Then
    i = i + 1
    t = t + 1
    End If
Loop

End Sub 

Sub Macro1()
    Columns("A:A").Select
    ActiveSheet.Range("$A$1:$A$500").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Discussions similaires