Procedure en double cliquant sur une case

Bonjour à tous
je voudrais créer une procedure evenementielle en doublecliquant sur une touche.
exemple je double clique sur la case A1 de la feuille 1 et j'ouvre la feuille2
je clique sur la cse a2 de la feuille 1 et j'ouvre la feuille 3
je seche completement j'ai essayé avec la fonction worksheet mais cela ne fonctionne pas comme je veux.

merci pour votre aide toujours très precieuse:):):)

à mettre dans ThisWorkBook :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Sh.Name = "Feuil1" And Target.Address = "$A$1" Then ThisWorkbook.Sheets("Feuil2").Activate ThisWorkbook.Sheets("Feuil2").Range("A2").Activate Cancel = True End If End Sub

---

Merci beaucoup
Cela me convient ;);)