Modifier une macro pr traiter les doublons...

Bonsoir à tout le forum,

Je souhaiterais votre pour modifier cette macro (de PierreJean), pour coller le résultat en col L et partir de la ligne 2 (soit Range L2.....).

Sub supp_doublons()

Application.ScreenUpdating = False
Dim coll As Collection
Set coll = New Collection
tableau = Range("H2:H" & Range("H799").End(xlUp).Row)
For n = 1 To UBound(tableau, 1)
On Error Resume Next
coll.Add tableau(n, 1), CStr(tableau(n, 1))
On Error GoTo 0
Next n
For n = 1 To coll.Count
Range("L" & n) = coll(n)
Next n
Application.ScreenUpdating = True

End Sub

Merci pour votre aide
Bien amicalement,
Christian