Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.NumberFormat = "m/d/yyyy" Then 'condition : si le format dans la cellule double-cliquée est (format à adapter...)
Cancel = True 'évire le mode édition lié au double-clic
UserForm1.Show 'ouvre l'UserForm1
End If 'fin de la condition
End Sub