ESSAYES UN CODE COMME CELUI CI CELA DEVRAIT RESOUDRE TON PROBLEME JE PENSES:
A ADAPTER A TON FICHIER BIEN SUR!!!
private c1 as date'declare ta variable date
Private plage As Range
Private Cel As Range
'**********************************************
Dim i As Integer 'déclare la variable i
ListBox1.Clear 'vide la ListBox1
ListBox2.Clear 'vide la ListBox2'il faut creer une listbox en parrallele que tu caches
c1 = Format(Now() , 'd/m/yy') 'définit la variable C1 au format de ton chois
'remplissage de la ListBox1 en fonction de la date du jour et de ton textbox2
With Sheets('ta feuille')
ListBox1.ColumnCount = 2'declare le nbre de colonne que tu souhaites
'ENTREE DU NOUVEAU TABLEAU
ListBox1.ColumnWidths = '0pt;0pt''definit la largeur de tes colonnes
ListBox1.Font.Size = 12 ' definit la taille du texte dans te listbox
Set plage = .Range('A1:A' & .Range('A65536').End(xlUp).Row) 'définit la variable Plage
'ta plage correspond ici a toutes les donnees de ta colonne A sans les lignes vides
End With
'******************************************************************************************
'******************************************************************************************
For Each Cel In plage
If Cel.Offset(0, 0).Value = textbox2.Value And Cel.Offset(0, 2) <= c1 Then
ListBox1.AddItem Cel.Value 'nat.
ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
' et ainsi de suiteselon ce que tu veux faire apparaitre dans ta listbox
ATTENTION, SI TU DOIS FAIRE APPARAITRE UNE DATE TU LE FERAS COMME CECI:
EX: ListBox1.Column(1, i) = Format(Cel.Offset(0, 1).Value, 'd/m/yy') 'FORMAT DE DATE CHOISI
ListBox2.AddItem Cel.Row 'remplissage de la ListBox2
i = i + 1 'redéfinit la variable i
End If
Next Cel