Macro lancée par sélection cellule

Bonjour,

J'ai une macro qui s'exécute lorsque je double clic sur une cellule en affichant des lignes.
Je souhaiterais la compléter, en lui disant que si je double clic sur cette même cellule alors que les lignes sont déjà afficher, il faudrait me les masquer...
Est-ce que quelqu'un pourrait m'aider?
voici le début du code (en fichier joint également à toutes fins utiles....)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Not Application.Intersect(Target, Range("A4")) Is Nothing Then   'macro à mettre Rows("4:10").Select Selection.EntireRow.Hidden = False Range("A5").Select   End If   End Sub

---

Encore merci beaucoup...

Bonjour,

je viens d'avoir une réponse par ailleurs, la voici, à toutes fins utiles...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Not Application.Intersect(Target, Range("A4")) Is Nothing Then   'macro à mettre Select Case Rows("5:10").EntireRow.Hidden Case True Rows("5:10").EntireRow.Hidden = False Case False Rows("5:10").EntireRow.Hidden = True End Select End If   End Sub

---

ENCORE MERCI