Macro sans doublons deux colonnes vers une seule

Sub SansDoublonsTrié1()
  Dim temp()
  Set f = Sheets("Feuil1")
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = Range("F2:G" & Range("F65535").End(xlUp).Row).Value
  For Each C In a
     MonDico(Application.Proper(C)) = ""
  Next C
  Set dest = f.Range("AX2")
  dest.Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
  dest.Resize(MonDico.Count, 1).Sort Key1:=dest, Order1:=xlAscending
  Set MonDico = Nothing    ' libère mondico
End Sub