Salut Al,
ah, non! Pas comme ça!
Je suis (presque) un vieux cheval aussi mais autant faire le plus joli possible...
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
If Not Intersect(Target, Union(Range("A2"), Range("F2"))) Is Nothing Then
If Target.Column = 1 Then Rows(3).Hidden = Not Rows(3).Hidden 'Modifier "$A$2" pour autre cellule
If Target.Column = 6 Then Columns("G:J").Hidden = Not Columns("G:J").Hidden 'Modifier "$F$2" pour autre cellule
[A1].Select
End If
'
End Sub
Petite particularité que je souligne ici pour ton information : tu places ton code dans le module VBA de 'ThisWorkBook' ce qui veut dire que, en l'état, ce code est valable pour TOUTES les feuilles de ton fichier!
Teste l'effet en double-cliquant en 'MENU' [A2] ou [F2].
Bonne continuation, Al!
A+