Afficher/Masquer un tableau détail

Bonjour,
En se basant sur les valeurs de la colonne D de Feuil1 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Dim Ctr As Long
If Target.Column = 1 And Target.Font.Bold = True Then
Cancel = True
If Target.Value = Target.Offset(1).Value And
Target.Offset(1).EntireRow.Hidden = True Then
Ctr = 0
Do
Ctr = Ctr + 1
If Target.Offset(Ctr).Value = "" Then Exit Sub
If Application.VLookup(Target.Offset(Ctr).Value,
[Feuil1!A:D], 4, 0) = Target.Value Then
Target.Offset(Ctr).EntireRow.Hidden = False
Else
Exit Sub
End If
Loop
End If
If Target.Value = Target.Offset(1).Value And
Target.Offset(1).EntireRow.Hidden = False Then
Ctr = 0
Do
Ctr = Ctr + 1
If Target.Offset(Ctr).Value = "" Then Exit Sub
If Application.VLookup(Target.Offset(Ctr).Value,
[Feuil1!A:D], 4, 0) = Target.Value Then
Target.Offset(Ctr).EntireRow.Hidden = True
Else
Exit Sub
End If
Loop
End If
End If
End Sub
Cordialement.
Daniel

Bonjour à tous,

J'aimerais en cliquant dans une cellule, qu'un tableau détaillé
correspondant au nom de la zone cliquée soit afficher sous la cellule
en question.

Un deuxième clique va masquer ce tableau.

Merci d'avance.

http://www.cjoint.com/c/FFApIepkeiD

Bonjour Daniel,

J'ai essayé le code dans la feuille Feuil2.

Mais cette condition est toujours fausse :

If Target.Value = Target.Offset(1).Value And Target.Offset(1).EntireRow.H idden = False Then

http://www.cjoint.com/c/FFCwVc1mmLK

Bonjour,
http://www.cjoint.com/c/FFDiQQXd3iv
Daniel

Bonjour Daniel,

J'ai essayé le code dans la feuille Feuil2.

Mais cette condition est toujours fausse :

If Target.Value = Target.Offset(1).Value And
Target.Offset(1).EntireRow.Hidden = False Then

http://www.cjoint.com/c/FFCwVc1mmLK