Allez ! Un jour sur sept, c'est acceptable, non ?Toujours cette bonté dominicale qui colle à tes pépins
Je n'avions point percutéle demandeur voulait une solution formulée mais pas macrotée
Sinon, tu présumes quoi à propos de cette affaire de doublons?
(voir mon précédent message)
Si j'étais moi, je me poserai la question suivante:
Que fait-on ensuite avec ces doublons copiés ailleurs ?
Ne s'agit-il pas au final de supprimer des doublons?
Si oui alors, Données/Supprimer les doublons fera le job sans macro, sans formules et sans pantalon
Sub es()
Dim t(), i As Long, m As Object, y As Byte, x As Long
Application.ScreenUpdating = 0
Set m = CreateObject("Scripting.Dictionary")
m.CompareMode = TextCompare
t = Feuil1.Range("a2:f" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value2
For i = 1 To UBound(t): m.Item(t(i, 2)) = m.Item(t(i, 2)) + 1: Next i
For i = 1 To UBound(t)
If m.Item(t(i, 2)) > 1 Then
x = x + 1
For y = 1 To 6: t(x, y) = t(i, y): Next y
End If
Next i
Feuil2.[j2].Resize(x, 6) = t
End Sub