Date precise dans lisbox

je cherche la solution pour que ce code me donne la date qui est sur la feuill1A1 plus les colonnes qui sont supérieur à cette date au lieu d’être obliger de revenir sur le code pour changer le numéros de colonne afin de ne pas avoir la liste complète des dates présente sur ma feuill2 auriez vous la solution?

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
Dim I As Integer
Dim nbcol As Integer

    Sheets("choix").Activate
    ListBox1.Clear
    ' déterminer le nombre de colonnes de la feuille choix
    nbcol = Range("A1").End(xlToRight).Column

    'Renseigner la liste box avec les titres des collonnes de la feuille Choix
    For I = 6 + 10 To nbcol
        ListBox1.AddItem Cells(1, I).Value
    Next I

    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) = True Then
            ListBox1.Selected(I) = False
        End If
    Next I

End Sub

Quel embrouillamini

Feuil1, Feuil2, Dates, 6+10 etc .....

Moi je suis

Un fichier dans lequel tu indiques ce que tu as et ce que tu veux

autant pour moi en pièce jointe le fichier j'ai copié coller les feuilles du fichier

A tester

merci Banzai64

super boulot que tu à fait rapide et efficace