listbox sur recherche de delai dépassé

bjr messieurs,

Je vais essayer d'etre claire:

en
colonne a= date envoi
colonne b= nom
colonne c= fournisseur

donc je voudrais:

Dans 1 USF, en cliquant sur le boutton "retard" je veux voir apparaitre dans la listbox1 de cet meme usf:
les noms en fonctions du delta entre la date d'envoi et now si ce delta est dépassé
Sachant que ce delta varie en fonction des fournisseurs.


dans l'exemple suivant (piquer à thierry soit dit en passant) je voudrais que la recherche soit faite selon les criteres expliqué avant

Private Sub CommandButton2_Click() 'MODE RECHERCHE STRING
Dim Cherche As String
Dim L As Integer
Dim Maplage As Range
Dim FirstADdress As String
Dim C As Object
Cherche = TextBox4
If Cherche = "" Then
Exit Sub
End If
ListBox1.Visible = False
ListBox2.Visible = True
OptionButton1.Visible = False
OptionButton2.Visible = False
OptionButton3.Visible = False


UserForm1.Caption = "Thierry's Démo Mode Recherche par String"

L = Sheets("Database").Range("G65536").End(xlUp).Row
Set Maplage = Sheets("Database").Range("G2:G" & L)
With Maplage
Set C = .Find(Cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
ListBox2.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress
End If
End With
End Sub

Si vous avez mieux, je n'est rien compte.
ça fait 2 jours que je tourne sur le site et je trouve rien que me convienne.
Je pense que la réponse est simple pour ceux qui maitrise vb, ce qui n'est pas mon cas
merci à tous
bassdingue