Comparer listes + Ordonner

Sub pyrof()

Dim tab_data
Set tab_data = CreateObject("scripting.dictionary")

'--------------------------------------------lecture colonne A
l = 2
While Cells(l, 1) <> ""
    cle = Cells(l, 1)
    If tab_data.exists(cle) Then
        tmp = tab_data(cle)
        tmp(0) = 1 + tmp(0)
        tab_data(cle) = tmp
    Else
        tab_data(cle) = Array(1, 0)
    End If
    l = l + 1
Wend

'--------------------------------------------lecture colonne B
l = 2
While Cells(l, 2) <> ""
    cle = Cells(l, 2)
    If tab_data.exists(cle) Then
        tmp = tab_data(cle)
        tmp(1) = 1 + tmp(1)
        tab_data(cle) = tmp
    Else
        tab_data(cle) = Array(0, 1)
    End If
    l = l + 1
Wend

'--------------------------------------------ecriture resultat
' colonne 7 = reference
' colonne 8 = nombre de présence en colonne A
' colonne 9 = nombre de présence en colonne B
l = 2
For Each cle In tab_data
    Cells(l, 7) = cle
    Cells(l, 8) = tab_data(cle)(0)
    Cells(l, 9) = tab_data(cle)(1)
    l = l + 1
Next
End Sub