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