Lancer un UserForm via Doubleclic dans la cellule

Bonjour,


J'ai un problème assez étrange je dirais.


J'ai dans un classeur A un userform pour lequel il suffit de double-cliquer dans la cellule pour l'afficher.

Dans mon classeur B, je souhaite avoir la même chose.

Alors je copie colle le code suivant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 ' Double Click Event To Launch The Userform
 
 Dim rep As Boolean
 Cancel = False
 If Not Intersect(Target, Range("H6:H30")) Is Nothing And UserForm1.Visible = False Then
 UserForm1.Show
 End If
 Cancel = True
 End Sub


Option Explicit

Mais ca ne fonctionne pas. A savoir que mis à part la plage H6:H30 tout est identique.

J'ai essayé de comparer dans tous les sens ce qui changeait entre les deux classeurs..... Absolument rien.

Est-ce que vous avez une idée de l'erreur?

Ou est-ce que vous avez un code pour le doubleclick qui fonctionne?

Sincèrement,

Koalacid