f1 = 3 'no feuille
f2 = 5
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("temp").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "temp"
Sheets(f1).Activate
Set Execut = CreateObject("Scripting.Dictionary")
Set ListeFu = CreateObject("Scripting.Dictionary")
For Each c In Sheets(f1).Range("B:B").SpecialCells(xlCellTypeConstants, 23)
If Not Execut.Exists(c.Value) Then Execut.Add c.Value, c.Address
Next
'---
Sheets(f2).Activate
For Each c In Sheets(f2).Range("A:A").SpecialCells(xlCellTypeConstants, 23)
If Not ListeFu.Exists(c.Value) Then ListeFu.Add c.Value, c.Address
Next
'---
I = 1
Sheets(f1).Activate
For Each e In Execut
If ListeFu.Exists(e) Then
Range(Execut.Item(e)).Interior.ColorIndex = 4
Else
Range(Execut.Item(e)).Interior.ColorIndex = 6
I = I + 1
Sheets("temp").Cells(I, 2) = e
Sheets("temp").Cells(I, 1) = Execut.Item(e)
End If
Next