Sub DoublonsMultiFeuilles()
Set MonDico = CreateObject("Scripting.Dictionary")
Set MonDico2 = CreateObject("Scripting.Dictionary")
Set mondico3 = CreateObject("Scripting.Dictionary")
For s = 1 To Sheets.Count
For i = 2 To Sheets(s).[A65000].End(xlUp).Row
temp = Application.Trim(Sheets(s).Cells(i, "c") & Sheets(s).Cells(i, "f"))
If Not MonDico.Exists(temp) Then MonDico(temp) = temp Else MonDico2(temp) = temp
Next i
Next s
For s = 1 To Sheets.Count
For i = 2 To Sheets(s).[A65000].End(xlUp).Row
temp = Application.Trim(Sheets(s).Cells(i, "c") & Sheets(s).Cells(i, "f"))
If MonDico2.Exists(temp) Then
Sheets(s).Cells(i, "c").Interior.ColorIndex = 3
Sheets(s).Cells(i, "f").Interior.ColorIndex = 3
mondico3(temp) = mondico3(temp) & Sheets(s).Name & ":" & temp & " Ligne " & i & "*"
End If
Next i
Next s
Sheets(1).Cells(2, "k").Resize(mondico3.Count) = Application.Transpose(mondico3.items)
End Sub