Eliminer doublons de deux colonnes vers une seule

Sub test()
Dim monDico As Object
Dim zone As Excel.Range, curCell As Excel.Range

    Set monDico = CreateObject("Scripting.Dictionary")
    
    With ThisWorkbook.Sheets("Feuil1")
        
        'récupérer la zone de cellule de la colonne A
        Set zone = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
        
        'boucler sur chaque cellule de la zone
        For Each curCell In zone.Cells
            
            'essayer d'ajouter l'élément au dictionnaire (il n'accepte pas les doublons)
            On Error Resume Next
             monDico.Add curCell.Value, curCell.Value
            On Error GoTo 0
            
        Next curCell
        
        'récupérer la zone de cellule de la colonne B
        Set zone = .Range("B1:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
        
        'boucler sur chaque cellule de la zone
        For Each curCell In zone.Cells
            
            'essayer d'ajouter l'élément au dictionnaire (il n'accepte pas les doublons)
            On Error Resume Next
             monDico.Add curCell.Value, curCell.Value
            On Error GoTo 0
            
        Next curCell
        
        'afficher en colonne C le résultat
        .Range("C1").Resize(monDico.Count, 1).Value = WorksheetFunction.Transpose(monDico.Items)
        
    End With
    
    Set monDico = Nothing
    
End Sub