Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim itsc As Range
Set itsc = Application.Intersect(Target, Range("A2:A17"))
If itsc Is Nothing Then Exit Sub 'pour limiter à la sélection'
itsc.Value = Format(Now(), "hh:mm:ss") 'heure ... ça fonctionne'
End Sub