Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Variant
i = Application.Match([A1], [Liste], 0)
If IsError(i) Then [Liste].EntireRow.Hidden = False: Exit Sub
[Liste].EntireRow.Hidden = True 'masque toutes les lignes
[Liste].Rows(i).Hidden = False 'sauf celle-ci
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Variant
If Intersect(Target, [B2:C2]) Is Nothing Then Exit Sub
i = Application.Match([A1], [Liste], 0)
If IsError(i) Then Exit Sub
Cancel = True
[Liste].Cells(i, Target.Column) = Time
End Sub