Problème doublon

Bonjour le Forum

Je cherche à supprimer des doublons dans un tableau de taille variable et sur des plages de cellules variables

et c'est la qu'est le problème.

Quand mon code passe sur une colonne, il supprime tous les doublons, alors que moi je voudrait qu'il en laisse un par ligne

On peux se servir de la colonne "A" car la valeur sera toujours unique (après suppressions des doublons dans la colonne "A")

Je place un fichier en pièce jointe avec deux feuilles dont une avec le résultat à obtenir (je peux avoir des tableaux beaucoup plus grand que celui-ci)

D'avance je vous remercie pour votre aide et pour votre disponibilité

Bonjour,

Essayez ceci

Sub Doublon()
    Dim DerLig As Long
    DerLig = Range("E" & Rows.Count).End(xlUp).Row
    With Worksheets("Défusionner")
        For I = DerLig To 3 Step -1
            If Cells(I, "E") = Cells(I - 1, "E") Then Range(Cells(I, "A"), Cells(I, "T")).ClearContents
        Next I
    End With
End Sub

Cdlt

Bonjour Arturo83

C'est impec

je te remercie beaucoup pour ton aide

tu me retire une belle épine du pied

Un grand merci à toi