Sub Doublons()
Dim col1 As Collection, col2 As Collection, c As Range, n&, a(), i&
Set col1 = New Collection
Set col2 = New Collection
On Error Resume Next
With Feuil1 'CodeName de la feuille, à adapter
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
For Each c In .Range("C2", .Range("C" & .Rows.Count).End(xlUp))
If c <> "" Then
Err = 0
col1.Add c, CStr(c)
If Err Then col2.Add c, CStr(c)
End If
Next c
n = col2.Count
If n Then ReDim a(1 To n, 1 To 1)
For i = 1 To n
a(i, 1) = col2(i)
Next i
'---restitution---
With .[F3] '1ère cellule de restitution, à adapter
If n Then .Resize(n) = a
.Offset(n).Resize(.Parent.Rows.Count - n - .Row + 1).ClearContents 'RAZ en dessous
End With
End With
End Sub