Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4")) Is Nothing Or _
Not Intersect(Target, Range("B7")) Is Nothing Or _
Not Intersect(Target, Range("B10")) Is Nothing Then
fm_CalendrierCellule.Tag = Target.Value
fm_CalendrierCellule.Show: Cancel = True
End If
End Sub