Dans un userform j'ai une image. Selon que l'on clique ou que l'on double clique sur cette image, je voudrais lancer deux macros différentes. Mais chaque fois, l'événement simple clic prend le pas sur le double clic. Comment faire ?

Dans le module de ton UserForm :

 Private Declare Function GetTickCount Lib "Kernel32" () As Long 
 Private Declare Function GetDoubleClickTime Lib "User32" () As Integer   
 Dim bDblClick As Boolean 

Private sub Image1_Click()
 Dim T As Long
 T = GetTickCount
 Do: DoEvents
 Loop While GetTickCount - T < GetDoubleClickTime
 If Not bDblClick Then MsgBox "Simple clic sur l'image" _
  Else bDblClick = False
 end sub

Private sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 MsgBox "Double-clic sur l'image"
 bDblClick = True
 end sub