Bonjour,
Peut-être avec une macro VBA ?
Sub Rech()
Dim Cel As Range, CelComp As Range, i As Integer
Dim Plage As Range, B As Boolean
Sheets("feuil1").Select
i = 2
Set Plage = Range("A1:F8")
For Each Cel In Plage
For Each CelComp In Plage
If Cel = CelComp And Cel.Address <> CelComp.Address Then
Cel.Interior.ColorIndex = i
CelComp.Interior.ColorIndex = i
B = True
End If
Next CelComp
If B Then
i = i + 1
If i > 48 Then i = 1
B = False
End If
Next Cel
End Sub
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)