Lancer une macro par un double click dans une cellule

Bonjour à tous,

J'ai cette macro dans une feuille:

Sub worksheet_beforedoubleclick(byVal Target as Range, cancel as boolean)

If selection.count<>0 then

if not intersect(Target,Range("A1:CC800"))Is nothing then

Call mymacro

end if

end if

end sub

J'aimerais lancer mymacro par double click dans n'importe quelle cellule d'un classeur comprenant plusieurs feuilles. (Sans étre obliger de copier du code dans chaque feuille).

Merci de vos réponses.

Bonjour

Merci d'utiliser les balises de code lorsque vous postez un code en cliquant sur l'icone prévu dans la barre de menu et en collantt votre code dans la fenêtre.

Pour votre demande :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:CC800")) Is Nothing Then
    Call mymacro
End If
End Sub

Code à placer dans THISWORKBOOK

Cordialement

Merci pour la solution,

le code fonctionne tres bien,

Bonne journée!