Sub Prix_comparer()
Dim c As Range
Application.ScreenUpdating = False
Columns("a:a").Insert
Range("a6:a" & Range("B65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[1]=""Sous/Total"",MIN(RC[3]:RC[8]),""x"")"
Range("a6").CurrentRegion.Interior.ColorIndex = xlNone
For Each c In Sheets(1).Range("d6:d1000")
If c.Offset(, -2).Value = "Sous/Total" And c.Value = c.Offset(0, -3).Value Then c.Interior.ColorIndex = 6
Next c
For Each c In Sheets(1).Range("f6:f1000")
If c.Offset(, -4).Value = "Sous/Total" And c.Value = c.Offset(0, -5).Value Then c.Interior.ColorIndex = 6
Next c
For Each c In Sheets(1).Range("h6:h1000")
If c.Offset(, -6).Value = "Sous/Total" And c.Value = c.Offset(0, -7).Value Then c.Interior.ColorIndex = 6
Next c
Range("g51") = "=SUM(C[-6])"
Range("g51").Value = Range("g51").Value
Columns("a:a").Delete
Application.ScreenUpdating = False
End Sub