[COLOR="DarkSlateGray"][B]Sub toto()
Dim oDat, oCmp, i As Long, j As Long, s As String
oDat = Intersect(Range("A1").CurrentRegion, Columns("$A:$V")).Value
ReDim oCmp(1 To UBound(oDat, 1))
For i = 1 To UBound(oDat, 1)
For j = 1 To UBound(oDat, 2)
oCmp(i) = oCmp(i) & "#" & oDat(i, j)
Next j
Next i
For i = 1 To UBound(oCmp) - 1
s = oCmp(i)
For j = i + 1 To UBound(oCmp)
If oCmp(j) = oCmp(i) Then
Range("A1").Offset(i - 1, 0).Resize(1, 22).Interior.ColorIndex = 3
Range("A1").Offset(j - 1, 0).Resize(1, 22).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub[/B][/COLOR]