[/COLOR][/COLOR]
[COLOR=#ff0000][COLOR=#000000]Sub Doublon()
Dim Plage As Range
Dim Cel As Range
With Worksheets("Feuil1")
Set Plage = Range("D10:G22")
End With
For Each Cel In Plage
If Application.CountIf(Plage, Cel.Value) > 1 Then
Cel.Interior.ColorIndex = 15
End If
Next Cel
End Sub