Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([E10:L10], Target) Is Nothing _
And Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
UFmCalend.Posit Target, 0, 1
Target.Value = UFmCalend.Saisie("Note " & Target.Offset(-2).Text, Date)
End If
End Sub