Bonjour,
Et moi, je trouve un résultat différent des deux votre :
Sub Doublons()
Dim Dico As Object
Dim Cle As Variant
Dim Plage As Range
Dim Cel As Range
Dim Tbl() As String
Dim I As Long
With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
ReDim Tbl(1 To Plage.Count)
'concatène la cellule A avec la cellule C dans un tableau
For Each Cel In Plage
I = I + 1: Tbl(I) = Cel.Value & Cel.Offset(, 2).Value
Next Cel
Set Dico = CreateObject("Scripting.Dictionary")
'valeur unique avec stockage du numéro de ligne
For I = 1 To UBound(Tbl): Dico(Tbl(I)) = I: Next I
I = 0
'inscription des valeurs
With Worksheets("Feuil2")
For Each Cle In Dico.Keys
J = J + 1
.Cells(I, 1).Value = Plage(Dico(Cle)).Value
.Cells(I, 2).Value = Plage(Dico(Cle), 2).Value
.Cells(I, 3).Value = Plage(Dico(Cle), 3).Value
Next Cle
End With
End Sub