Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
If R = "Dates" Then 'si la cellule contient le mot Dates
If MsgBox("Effacer la plage ?", 36, "") = 7 Then Exit Sub 'question et si réponse non on sort
[E10:L10] = "" 'si oui la plage est vidée
End If
If Not Intersect(R, [E10:L10]) Is Nothing Then UQuand.Show 'un clic sur une cellule de la plage : calendrier
End Sub