Re : Comment conserver le doublon
bonjour Thierry,Pierrot
un essai
Sub x()
Dim N1 As Integer, DerL As Integer, coll1 As New Collection
Application.ScreenUpdating = False
DerL = Sheets("liste").Range("A65536").End(xlUp).Row
Sheets("Resultat").Range("A1:A" & DerL).Value = _
Sheets("Liste").Range("A1:A" & DerL).Value
Sheets("Resultat").Activate
For N1 = 2 To Range("A65536").End(xlUp).Row
On Error Resume Next
coll1.Add Range("A" & N1), CStr(Range("A" & N1))
On Error GoTo 0
Next N1
For N1 = 1 To coll1.Count
Sheets("Resultat").Range("B" & N1 + 1) = coll1(N1)
Next N1
Application.ScreenUpdating = True
End Sub
à bientôt