Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge <> 1 Or Target.Row = 1 Or _
Target.Column <> 5 And Target.Column <> 6 Then Exit Sub
UFmCalend.Posit Target, 1, 0.9
Target = UFmCalend.Saisie(Titre:=" ", DInit:=Target.Value, Défaut:=Target.Value)
End Sub