Private Sub Worksheet_Change(ByVal Target As Range)
'si la cellule active n'est pas en ligne 1 on sort de la macro
If Target.Row <> 1 Then Exit Sub
'offset(6,0)=decaler(ligne,colonne)
Target.Offset(6, 0) = Time 'time=heure , now=date + heure,date=date seule
End Sub