Doublons si 4 iers colonnes identiques

bonjour

j'ai un fichier avec plusieurs colonnes et j'aimerai traiter les doublons ( en vba ) dans ce fichier

il y a doublons si les 4 iers colonnes sont identiques

et dans ce cas nous devrons supprimer la ligne

j'ai essayer une macro avec "RemoveDuplicates"

mais sans succès je comprend pas trop ce que fait cette fonction ....

Bonjour,

Ta demande est un peu confuse.

Essaie ceci :

Option Explicit

Public Sub DEMO()
Dim lRow As Long
Dim rng As Range

    Application.ScreenUpdating = False
    With ActiveSheet
        lRow = .Cells(Rows.Count, 3).End(xlUp).Row
        On Error Resume Next
        Set rng = .Cells(1).Resize(lRow, 2).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not rng Is Nothing Then
            rng.FormulaR1C1 = "=R[-1]C"
        End If
        Set rng = .Cells(1).CurrentRegion
        rng.RemoveDuplicates _
                Columns:=Array(1, 2, 3, 4), _
                Header:=xlYes
        lRow = .Cells(Rows.Count, 3).End(xlUp).Row
        Set rng = .Cells(1).Resize(lRow, 2).SpecialCells(xlCellTypeFormulas)
        rng.Clear
    End With

    Set rng = Nothing

End Sub

bonjour jean eric

je viens de relire mon post et en effet il n'est pas très clair

bravo et merci pour ton travail cela semble fonctionne