Remplir une listbox sous condition

Bonjour,

voilà mon problème du jour que je n'arrive pas à resoudre seul , ce pourquoi je me tourne vers vous :

dans le fichier ci joint vous trouverz un planning, rempli avec des O et des couleurs.
A l'aide de l'userform, quand je change de date il m'indique les personne ayant un "O" dans la case correspondante à la date selon la procédure suivante :

Private Sub contr3_Change()' lorque je change la date
ListBox1.Clear
For n = 1 To 230
If Cells(1, n) = CDate(contr3) Then
For l = 2 To 65
If Cells(l, n).Value Like "O" Then
ListBox1.AddItem Cells(l, 1)
End If
Next l
End If
Next n
End Sub
Je cherche la procédure qui me permetterai d'afficher les noms des personnes (dans la listbox1) ayant un "O" ET dont la couleur de remplissage est differente que le jour précedent sous la forme :


If Cells(l, n).Value Like "O"And Cells(l, -1).Interior.ColorIndex<> Cells(1, n).Interior.ColorIndex

Malheureusement cela ne fonctionne pas.

merci de votre aide

Cordialement Jammy