Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union([D3], [D5], [D7], [I3])) Is Nothing Then
Réglages_masquer_feuilles
If Application.Intersect(Target, Union([I3], [K3])) Is Nothing Then Exit Sub
Réglages_masquer_colonnes
If Application.Intersect(Target, Union([D7], [D9])) Is Nothing Then Exit Sub
Réglages_masquer_lignes
End If
End Sub