Change cette Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With ActiveSheet
If Application.Intersect(Target, Range("A10:A65000, D10:D65000,I10:I65000")) Is Nothing Then Exit Sub
fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)
Cancel = True 'ceci évite l'édition de la cellule
End With
End Sub
avec celle-là
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
If Application.Intersect(Target, Range("A10:A65000, D10:D65000,I10:I65000")) Is Nothing Then Exit Sub
fmSTD_Calendrier.SelectDateCalendrierCELL IIf(IsDate(Target.Value), Target.Value, Date)
End With
End Sub