Sub aff_Doublons_2col_con()
'etape1
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Set plageA = Range("b2", [b65000].End(xlUp))
'Sheets("volt").
Set plageI = Range("j2", [j65000].End(xlUp))
[g:h].Interior.ColorIndex = xlNone
[g:h].EntireColumn.ClearContents
For Each c In plageA
If c <> "" Then d1(c.Value) = ""
Next c
For Each c In plageI
If d1.exists(c.Value) Then c.Interior.ColorIndex = 3
If c <> "" Then
d2(c.Value) = ""
End If
If Not d1.exists(c.Value) Then
j = j + 1
If Len(c.Text) > 0 Then Cells(j, c.Column - 3).Value = c.Value
'remplir colonne j
End If
Next c
For Each c In plageA
If d2.exists(c.Value) Then c.Interior.ColorIndex = 4
Next c
Range("h3", [k65000].End(xlUp)).Sort Key1:=Range("h2"), Order1:=xlAscending
End Sub