Sub extrait_sans_doublon()
Dim I As Long, t, z As Variant, L As Object
Range("Y4:Y65536").Select
Selection.ClearContents
If Intersect(Range("H4:H65536"), Range("H3:H" & Range("H65536").End(xlUp).Row)) Is Nothing Then Exit Sub
t = Intersect(Range("H4:H65536"), Range("H3:H" & Range("H65536").End(xlUp).Row)).Value
ReDim Preserve t(1 To UBound(t, 1), 1 To 1)
Set L = CreateObject("Scripting.Dictionary")
For I = LBound(t) + 0 To UBound(t)
If Not L.exists(t(I, 1)) Then L.Add t(I, 1), t(I, 1)
Next
Application.ScreenUpdating = False
[Y3] = "Pilotes"
For Each z In L
Range("Y30").End(xlUp).Offset(1, 0).Value = z
Next
Application.ScreenUpdating = True
Range("V3").Select
End Sub