Fusion de deux fichiers

Sub Uniques()
Dim a, i As Long, txt As String, e
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each e In [{1,2}]
            a = Sheets("Feuil" & e).Cells(2, 1).CurrentRegion.Value
            For i = 1 To UBound(a, 1)
                txt = Join$(Array(a(i, 1), a(i, 2)), Chr(2))
                If Not .exists(txt) Then
                    .Item(txt) = Split(txt, Chr(2))
                Else
                    .Item(txt) = Empty
                End If
            Next
        Next
        For Each e In .keys
            If IsEmpty(.Item(e)) Then .Remove e
        Next
        Sheets("Feuil3").Cells(1).CurrentRegion.Clear
        If .Count > 0 Then
            Sheets("Feuil3").Cells(1).Offset(1).Resize(.Count, 2).Value = _
            Application.Transpose(Application.Transpose(.items))
            Sheets("Feuil3").Cells(1).Resize(, 2).Value = [{"nom","mrh"}]
        End If
    End With
End Sub