Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Me.[B5,J6,I21], Target) Is Nothing Then Exit Sub
If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 Then Exit Sub
UFmCalend.Posit Target, 1
Target.Value = UFmCalend.Saisie(DInit:=Target.Value, Défaut:=Target.Value)
End Sub