Macro : masquer/afficher des colonnes

Sub test()
Dim Liste$, Sh As Worksheet
Liste = ",TEST1,TEST2,TEST3,TEST4,"
For Each Sh In Worksheets
    If InStr(Liste, "," & Sh.Name & ",") = 0 Then Sh.Columns("f:G").Hidden = Not Sh.Columns("f:G").Hidden
Next Sh
End Sub

Sub test2()
Dim Liste$
Liste = ",TEST1,TEST2,TEST3,TEST4,"
With ActiveSheet
    If InStr(Liste, "," & .Name & ",") = 0 Then .Columns("f:G").Hidden = Not .Columns("f:G").Hidden
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name <> "TEST1" And Sh.Name <> "TEST2" And Sh.Name <> "TEST3" And Sh.Name <> "TEST4" Then
    [F:G].Columns.Hidden = Not  [F:G].Columns.Hidden
  End If
End Sub