Problème avec les dates

Bonjour à tous,

Comme toujours j'ai un problème avec les dates, je ne m'y ferai jamais

Je veux retrouver une correspondance entre une date que je choisis et une date de ma feuille, en voicii le code

    debut = InputBox("Entrez la date du jour au format jj/mm/aaaa")
          For d = 2 To wsDonnees.Cells(wsDonnees.Rows.Count, 2).End(xlUp).Row
                 If wsDonnees.Cells(d, 2) = debut Then numeroligne = d: Exit For
         Next d

debut étant la date que je choisis et que je compare aux dates de la colone 2 de la feuille wsDonnees et dans le cas où il y a correspondance je veux relever le numéro de la ligne concernée, soit "numeroligne"
Mais avec ce code "numeroligne" reste "vide"

merci

Bonjour,

Comme ceci:

    debut = InputBox("Entrez la date du jour au format jj/mm/aaaa")
    For d = 2 To wsDonnees.Cells(wsDonnees.Rows.Count, 2).End(xlUp).Row
        If CDate(wsDonnees.Cells(d, 2)) = CDate(debut) Then numeroligne = d
    Next d

Cdlt

Un grand merci Arturo,

Evidemment il faudra que je m'y fasse avec les fonctions de conversion
Bonne fin de journée