Dim i, j, nbcolo, nbligne As Long
Dim NomHisto
NomHisto = "TabHisto"
nbcolo = Range(NomHisto).Columns.Count
nbligne = Range(NomHisto).Rows.Count
Range(NomHisto).Interior.Color = xlColorIndexNone
For i = 1 To nbligne
For j = 1 To nbcolo
If (i Mod 2 = 1) And Range(NomHisto).Item(i, j).Value <> Range(NomHisto).Item(i + 1, j).Value Then
Range(NomHisto).Item(i + 1, j).Interior.Color = RGB(169, 208, 142)
Range(NomHisto).Item(i + 1, j).Font.Bold = True
End If
Next j
Next i