Probleme sur un userform

bonjour le forum,

voila, j'ai un lineaire dans lequel je saisie avec un code couleur des abscence, des conges etc avec un code couleur.
je voufrais trouver une macro qui me permette dans une listbox d'afficher les noms des personnes presente et absente en fonction de la date inscrite dans une tetxbox qui prend pour date initiale le date du jour

je vous joint un petit fichier si quelqu'un a un eidée de la boucle a effectuer pour resoudre ce petit souci.

voila ma macro qui me semble completement imparfaite:
With Sheets("planning")
Set plage1 = Range("E1:IT1")

End With
For Each cel In plage1
For y = 4 To 254
If cel.Offset(0, y).Value = contr3.Value Then
x = cel.Offset(0, y)
End If
Next cel

'******************************************************************************************
For Each cel In plage

If cel.Offset(0, col1).Interior.ColorIndex <> xlNone Then
ListBox1.AddItem cel.Offset(0, 0).Value

ListBox2.AddItem cel.Row 'remplissage de la ListBox2
i = i + 1 'redéfinit la variable i
End If
Next cel
'===============================================================
Dim i As Integer 'déclare la variable i
ListBox1.Clear 'vide la ListBox1
ListBox2.Clear 'vide la ListBox2
With Sheets("planning")
ListBox1.ColumnCount = 2
'ENTREE DU NOUVEAU TABLEAU
ListBox1.ColumnWidths = "100pt;100pt"
ListBox1.Font.Size = 12
Dim col1 As Integer
col1 = recherchemot("e1:it1", contr3.Value, "planning", 3)
Set plage = .Range("B4:B" & .Range("B65536").End(xlUp).Row) 'définit la variable Plage

End With

'******************************************************************************************
For Each cel In plage

If cel.Offset(0, col1).Interior.ColorIndex <> xlNone Then
ListBox1.AddItem cel.Offset(0, 0).Value

ListBox2.AddItem cel.Row 'remplissage de la ListBox2
i = i + 1 'redéfinit la variable i
End If
Next cel