Sub LettrageCouleur()
Dim colonne1 As String
Dim colonne2 As String
'Demander quelle est la colonne de début (regroupement) et celle de fin (calcul pour somme nulle)
colonne1 = InputBox("Colonne début : ")
colonne2 = InputBox("Colonne fin : ")
'Dans le regroupement (AA ou BB Ou CC.....) trouver quelles lignes font une somme nulle)
Derlig = Range("A65500").End(xlUp).Row
Range(Cells(2, 1), Cells(Derlig, 3)).Interior.Color = RGB(255, 255, 255)
Lettrage = 1
' Pour chaque ligne dont la somme est nulle, inscrire un numéro de lettrage (1,2,3,.....)
' et colorier les lignes de chaque lettrage avec une couleur aléatoire.
For L = 2 To Derlig
If Cells(L, 2) + Cells(L + 1, 2) + Cells(L + 2, 2) = 0 Then
Range(Cells(L, 1), Cells(L + 2, 3)).Interior.Color = _
RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
Cells(L, 3) = Lettrage
Lettrage = Lettrage + 1
L = L + 3
End If
Next L
End Sub