Sub Afficher_tout()
With ActiveSheet
.Columns.Hidden = False
If .FilterMode Then .ShowAllData
End With
End Sub
Sub Jaune()
With ActiveSheet
.Columns("I:J").Hidden = False
.Columns("K:N").Hidden = True
.[A4].CurrentRegion.Offset(1).AutoFilter 1, RGB(255, 255, 0), xlFilterCellColor
End With
End Sub
Sub Vert()
Afficher_tout
With ActiveSheet
.Columns("K:L").Hidden = False
.Range("I:J,M:N").Columns.Hidden = True
.[A4].CurrentRegion.Offset(1).AutoFilter 1, RGB(0, 255, 0), xlFilterCellColor
End With
End Sub
Sub Bleu()
Afficher_tout
With ActiveSheet
.Columns("M:N").Hidden = False
.Columns("I:L").Hidden = True
.[A4].CurrentRegion.Offset(1).AutoFilter 1, RGB(0, 255, 255), xlFilterCellColor
End With
End Sub