Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long, lig As Long, n As Byte, test As Boolean
derlig = Application.Match("zzzzzzzzzz", [A:A])
If Intersect(Target, Range("A1:A" & derlig)) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
lig = Target.Row + 1
n = Len(Target)
[COLOR="Red"]'pour déterminer l'action du double-clic
While Rows(lig).Hidden
lig = lig + 1
Wend
test = Len(Cells(lig, 1)) > n
lig = Target.Row + 1[/COLOR]
If [COLOR="red"]test[/COLOR] Then
While Len(Cells(lig, 1)) > n And lig <= derlig
Rows(lig).Hidden = True
lig = lig + 1
Wend
Else
While Len(Cells(lig, 1)) > n And lig <= derlig
If Len(Cells(lig, 1)) = n + 1 Then Rows(lig).Hidden = False
lig = lig + 1
Wend
End If
End Sub