Bonjour et bienvenue,
Il y a plusieurs solutions, suivant ce que contient A2 (formule ou à saisir)
en supposant que ce soit une formule
1) dans une cellule quelconque, taper la formule =AUJOURDHUI() pour déclencher le Private Sub au calcul
2) ce code dans le VBE de la feuille concernée
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("a2") > 0 Then
Range("a5") = Format(Time, "hh:mm;@")
Else
Range("a5") = ""
End If
Application.EnableEvents = True
End Sub
Amicalement
Claude