Boucle while avec condition/test sur la couleur d'une case

Bonjour,

Je voudrais faire une boucle while qui s'arrête quand la cellule active devient colorée, voici le code que j'ai fait:

Range("E2").Select
    While (ActiveCell.Interior.Color = xlColorIndexNone)
        Print #numfich, """" & ActiveCell.Text & """= ";
        ActiveCell.Offset(0, 1).Select
        Print #numfich, ActiveCell.Text & vbCr & vbCrLf;
        ActiveCell.Offset(1, -1).Select
    Wend

Le problème, c'est que la condition dans ma boucle while n'est jamais vérifiée, alors que la case E2 est bien "transparente" :

L'objectif est d'écrire toutes les valeurs des colonnes E et F dans un fichier texte (sauf la première ligne qui est colorée) jusqu'à tomber sur une case rouge (ou colorée).

Merci d'avance

Je viens de comprendre:

.Interior.color donne la valeur 16777215 pour "aucun remplissage"

.Interior.colorIndex donne la valeur -4142 pour "aucun remplissage"

et xlColorIndexNone donne -4142