VBA problème liste déroulante

Slt tt le monde,
J’ai un formulaire avec une liste déroulante qui affiche des dates. Une fois que je sélectionne une date, je veux pouvoir sélectionner les colonnes qui correspondent à la ligne de la date. Les infos que je recherche sont stockées dans une feuille Excel.
Merci par avance
Voici mon code :


Private Sub bt_valider_consulter_Click()

'Définition de i pour l'incrémentation, de la feuille sh (Stats).
Dim i As Integer
Dim sh As Worksheet
Set sh = Sheets("Stats")

'On se positionne sur la 2e ligne (car la 1ère ligne correspond aux intitulés)
i = 2

'On incrémente pour trouver la ligne correspondante à la date sélectionnée dans la liste déroulante
While Not (Me.zl_seance.Value <> sh.Cells(i, 1).Value)
i = i + 1
Wend


'Récupération des valeurs des 5 séries
Me.zt_serie1_consult = sh.Cells(i, 2).Value
Me.zt_serie2_consult = sh.Cells(i, 3).Value
Me.zt_serie3_consult = sh.Cells(i, 4).Value
Me.zt_serie4_consult = sh.Cells(i, 5).Value
Me.zt_serie5_consult = sh.Cells(i, 6).Value

End Sub