Bonjour,
solution via une macro
Sub aargh()
Set ws1 = Sheets("inputAD")
Set ws2 = Sheets("inputEPO")
Set ws3 = Sheets("ecart AD & EPO")
dl1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
dl2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
cws1 = 0
cws2 = 0
i1 = 1
i2 = 1
ws1.Range("A1:A" & dl1).Sort Key1:=ws1.Range("A1"), order1:=xlAscending, Header:=xlNo
ws2.Range("A1:A" & dl2).Sort Key1:=ws2.Range("A1"), order1:=xlAscending, Header:=xlNo
While i1 <= dl1 Or i2 <= dl2
If ws1.Cells(i1, 1) < ws2.Cells(i2, 1) Then
cws1 = cws1 + 1
ws3.Cells(cws1, 1) = ws1.Cells(i1, 1)
i1 = i1 + 1
ElseIf ws1.Cells(i1, 1) > ws2.Cells(i2, 1) Then
cws2 = cws2 + 1
ws3.Cells(cws2, 2) = ws2.Cells(i2, 1)
i2 = i2 + 1
Else
i1 = i1 + 1
i2 = i2 + 1
End If
Wend
End Sub