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,

Dans le module de votre onglet :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

     If Target.Count > 1 Then Exit Sub

     If Not Intersect(Target, Range("CelluleDate")) Is Nothing Then
        SaisirLHeure CDate(Target), Range("C129:C645")
        Target.Offset(0, 1) = NbValeurs
     End If

End Sub

Dans un module standard :

Option Explicit

Public NbValeurs As Integer

Sub SaisirLHeure(ByVal DateEnCours As Date, ByVal AireRecherche As Range)

Dim I As Integer

    NbValeurs = 0
    For I = 1 To AireRecherche.Count
        With AireRecherche(I)
             If CDate(.Value) = DateEnCours Then
               .Offset(0, 1) = Time
               NbValeurs = NbValeurs + 1
             End If
        End With
    Next I

End Sub

Bonjour, ma participation :

Sub Finddate()

    Dim c As Range

    With Worksheets(1).Range("c129:c645")
        Set c = .Find(CDate(Range("b5").Value), LookIn:=xlValues)
        MsgBox c.Address

            c.Offset(0, 1).Value = Format(Time, "hh:MM")
    End With

End Sub

Je vous remercie de votre rapidité! Je n'arrive pas à le faire fonctionner, je peux vous joindre mon fichier, ça fait longtemps que je n'ai plus fait de VBA je suis un peu rouillé

encore Merci!!!!!!!