Sur un autre forum on m'a donnée une solution par VBA je vous la poste
Sub couleur()
For t = 13 To 15
a = 2
For n = 2 To 26
If Cells(n - 1, t) = 1 Then a = 1
If Application.WorksheetFunction.Count(Range("M" & n & ":" & "O" & n)) = 1 Then a = 2
Cells(n, t).Select
If a = 1 Then Selection.Interior.Color = 65535 Else Selection.Interior.Pattern = xlNone
Next
Next
For t = 16 To 18
a = 2
For n = 2 To 26
If Cells(n - 1, t) = 1 Then a = 1
If Application.WorksheetFunction.Count(Range("P" & n & ":" & "R" & n)) = 1 Then a = 2
Cells(n, t).Select
If a = 1 Then Selection.Interior.Color = 65535 Else Selection.Interior.Pattern = xlNone
Next
Next
For t = 19 To 21
a = 2
For n = 2 To 26
If Cells(n - 1, t) = 1 Then a = 1
If Application.WorksheetFunction.Count(Range("S" & n & ":" & "U" & n)) = 1 Then a = 2
Cells(n, t).Select
If a = 1 Then Selection.Interior.Color = 65535 Else Selection.Interior.Pattern = xlNone
Next
Next
End Sub