Suppression de doublon et remplacement de cellule

Bonjour j'ai un tableau contenant plusieur cellules ayant des doublons de nom je souhaiterais supprimer les doublons et réinjecter le contenu d'une cellule (C ) dans la premiere ligne avant suppression.

Je souhaiterais concerver les donnée des A B D jusqu'a L de la premier ligne et Reinjecter le contennu de la colonne C au dessus et supprimer les doublon

A noté que le tableau contiendra 3000 Lignes

Bonjour maxime_1313,

Voici un essai en pièce jointe.

Bonjour cela me supprime bien les doublons mais ne réinjecte pas la valeur de la case C

A tester:

Cela fonctionne partiellement il faudrait fusionner mais en contrôlant le Nom ( Colonne B) et nom pas avec la cellule du dessus systématiquement .

Merci

Salut Maxime,

quelque chose comme ça ?

Un double-clic sur la feuille 'ESABORA' démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab
'
Cancel = True
On Error Resume Next
Application.ScreenUpdating = False
'
tTab = Range("A1:L" & Range("B" & Rows.Count).End(xlUp).Row).Value
For x = UBound(tTab, 1) To 2 Step -1
    If Trim(tTab(x, 2)) = Trim(tTab(x - 1, 2)) Then
        tTab(x - 1, 3) = tTab(x, 3)
        tTab(x, 2) = ""
    End If
Next
With Worksheets("Extract")
    .Cells.Delete
    .Range("A1").Resize(UBound(tTab, 1), 12).Value = tTab
    .Range("B1:B" & UBound(tTab, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
    .Activate
End With
'
Application.ScreenUpdating = True
On Error GoTo 0
'
End Sub

A+

Merci pour votre aide

Bonjour,

Une autre proposition.

Nécessite l'installation de Power Query.

Cdlt.