J'ai répondu trop vite,
J'ai viré If, Target, Then
Maintenant, ça marche
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Application.Run "CubageVI2014_3.xlsm!UserForm"
Merci de ton aide
Pierrot