Est-ce possible de faire un double click même cellule

Re bonjour le forum

Est-ce possible de faire un multiple double click Cellule A2 qui ferait "AfficherMasquerOnglets" et "DeprotegerFeuilles"

Ou si c'est pas possible Cellule A2 "AfficherMasquerOnglets" & Cellule J2 "DeprotegerFeuilles"

Merci à vous

Re le forum

Fait ça. Je ne sais pas si c'est logique mais ça fonctionne

Cordialement

P

rivate Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Union(Range("A2"), Range("A2"))) Is Nothing Then
    If Target.Address = "$A$2" Then Application.Run ("Lancer_Code")
  Cancel = True
    If Target.Address = "$A$2" Then Application.Run ("DeprotegerFeuilles")
  Cancel = True
End If
End Sub