Macro pour lister sans doublons des codes horaires

Option Explicit
Sub Export()
Dim fP As Worksheet, fH As Worksheet
Dim plage As Range
Dim d As Object
Dim a()
Dim m As Variant, n As Variant, k As Variant, c As Variant, temp As Variant

Set fP = Feuil1: Set fH = Feuil2
Set plage = fP.[c12].CurrentRegion.Offset(1, 1).Resize(fP.[c12].CurrentRegion.Rows.Count - 1, fP.[c12].CurrentRegion.Columns.Count - 1)
Set d = CreateObject("Scripting.Dictionary")

For Each c In plage
If Not d.Exists(c.Value) And c.Value <> "" And IsNumeric(Left(c.Value, 1)) Then d.Add c.Value, ""
Next c

a = d.keys
For n = 0 To UBound(a) - 1
 For m = n + 1 To UBound(a)
   If a(m) < a(n) Then
   temp = a(m)
   a(m) = a(n)
   a(n) = temp
   End If
 Next m
Next n

fH.Cells.ClearContents
For k = 0 To d.Count - 1
fH.Cells(k + 1, 6) = a(k)
Next

End Sub