Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set zone = Application.Union(Range("A4:AB1000"), Range("AN4:AN1000"))
If Not Intersect(Target, zone) Is Nothing Then
Load fm_CalendrierCellule
If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
fm_CalendrierCellule.Show: Cancel = True
End If
End Sub