Sub SuppDoublons2()
Dim coll As Collection
Application.ScreenUpdating = False
Range("V2:AK2").ClearContents
Set coll = New Collection
tableau = Range("f2:f" & Range("f41").End(xlUp).Row)
For n = 1 To UBound(tableau, 1)
On Error Resume Next
coll.Add Trim(tableau(n, 1)), CStr(Trim(tableau(n, 1)))
On Error GoTo 0
Next n
For n = 1 To coll.Count
Cells(2, 21 + n) = coll(n)
Next n
Application.ScreenUpdating = True
End Sub