il te suffit de diviser par 2 et si le reste est zéro c que c pair, regarde si tu n'as pas une fonction modulo pour faire un truc if (i mod 2)=0 then pair
ou mieux tu crées un tableau de 2 entrées où tu places tes couleurs et tu obtiens alors la bonne couleur comme ça Couleurs[(NumLigne mod 2)]
bref y a plusieurs façons de faire ...