Sub Doublons()
Dim DL%, L1%, L2%, Doublon%, Trouvé%
Application.ScreenUpdating = False
DL = Range("B65500").End(xlUp).Row
Range("B4:F" & DL).Interior.ColorIndex = xlNone
Range("G4:G" & DL).ClearContents
Doublon = 1
For L1 = 2 To DL
Trouvé = 0
For L2 = L1 + 1 To DL
If Cells(L2, "B") = Cells(L1, "B") And Cells(L2, "C") = Cells(L1, "C") Then ' Doublons DATE NOM
Range(Cells(L2, "B"), Cells(L2, "F")).Interior.Color = RGB(255, 242, 204)
Range(Cells(L1, "B"), Cells(L1, "F")).Interior.Color = RGB(255, 242, 204)
If Cells(L2, "G") = "" Then
Cells(L1, "G") = Doublon: Cells(L2, "G") = Doublon: Trouvé = 1
End If
End If
Next L2
If Trouvé = 1 Then Doublon = Doublon + 1
Next L1
End Sub