Supprimer les doublons dans un tableau

    Range("A6").Select
    Selection.CurrentRegion.Select
    ActiveSheet.Range("$A$6:$C$48").RemoveDuplicates Columns:=1, Header:=xlNo

Private Sub CommandButton1_Click()
Dim i&, L&, J%
Dim D As Object, TD As Variant, Tmp As Variant
Set D = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
    TD = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(3)(1, 3))
    For i = 1 To UBound(TD, 1)
        Tmp = TD(i, 1) & TD(i, 2) & TD(i, 3)
        D(Tmp) = D(Tmp) + 1
        If D(Tmp) = 1 Then
            L = L + 1
            For J = 1 To 3
                TD(L, J) = TD(i, J)
            Next J
        End If
    Next i
    Application.ScreenUpdating = False
    With .Cells(6, 1)
        .Resize(UBound(TD, 1), UBound(TD, 2)).ClearContents
        .Resize(L, UBound(TD, 2)) = TD
    End With
End With
End Sub