Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E2:E20")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
UFmCalend.Posit Target, 0, 1
Target(1, 1).Value = UFmCalend.Saisie("", Target(1, 1).Value, Date)
End If
End Sub