Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [G:J]) Is Nothing Then Columns("G:J").Hidden = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D4:E" & Range("D" & Rows.Count).End(xlUp).Row)) Is Nothing Then Exit Sub
Cancel = True
[G:J].Clear 'RAZ
With Sheets("Portefeuille")
.[A1].AutoFilter
.[A1].AutoFilter 1, Cells(Target.Row, "D") 'filtrage
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy [G3]
.[A1].AutoFilter
End With
Columns("G:I").Hidden = False
If LTrim(Cells(Target.Row, "D")) = "pb" Then Columns("J").Hidden = False
End Sub