Sub exemple()
If (Cells(28, 1).Interior.ColorIndex = 50) Then 'si la cellule A28 est verte
Cells(28, 1).Value = 1 'la valeur de la case sera égale a 1 (j'ai compris cela ainsi mais peut etre voulais tu faire un msgbox?)
Else
Cells(28, 1).Value = 0 'la valeur de la case sera égale a 0 : idem que au dessus
End If
End Sub