Salut,
moi j'ai pondu ceci qui devrait aller :
Option Explicit
Sub UnesurX()
On Error Resume Next
Dim i As Long, n As Long
Dim Rngdelete2, Rng2, Valeurs
Sheets(1).Select
n = Cells(65536, 1).End(xlUp).Row
Range('A1:J' & n + 2).ClearFormats
For i = 2 To n
If (Cells(i, 1) = Cells(i + 1, 1)) Then
Range(Cells(i, 1), Cells(i, 10)).Interior.ColorIndex = 15
Else
Range(Cells(i, 1), Cells(i, 10)).Interior.ColorIndex = 15
Valeurs = Cells(i + 1, 1)
While Cells(i + 1, 1) = Valeurs
i = i + 1
Wend
Range(Cells(i + 1, 1), Cells(i + 1, 10)).Interior.ColorIndex = 15
End If
suivant:
Next
End Sub
Patrick