Macro pour copier une valeur à côté d'un résultat de recherche

Bonjour, je voudrais créer une macro qui recherche la cellule entre C129:C645 (liste de dates) qui contient la même date que celle présente en B5, une fois cette cellule trouvée, qu'elle me note à la même ligne en colonne D l'heure sous format hh:mm.

Pour présenter autrement je note une date en B5 et je voudrais qu'en cliquant sur mon bouton, elle me retrouve la même date dans ma liste et me note l'heure à la quelle j'ai appuyé en colonne D sur cette même ligne.

Est-ce que quelqu'un peut m'aider, je galère ...

Merci bien!

bonjour,

une façon de faire (la recherche de date avec .find est tricky)

Private Sub CommandButton1_Click()

    Dim c As Range

    For Each c In Worksheets(1).Range("c129:c645")

        If c.Value = Worksheets(1).Range("B5") Then
            c.Offset(0, 1).Value = Format(Time, "hh:MM")
            Exit For
        End If

    Next

End Sub

Super merci beaucoup pour le temps accordé!

C'est exactement ce que je cherchais à faire!