Bouton pour masquer des colonnes

Bonjour,

J'ai besoin d'aide au sujet de la création d'un bouton à bascule avec développeur qui me permet de masquer les colonnes :

A;B;C;E;G;H;I;J;AB;AE;BD;BM;BO;BQ;BX;CE;CG;CI;CK;CS;CT;CV;CX;CZ;DE;DF;DL;DM;DO;DQ;DS;PV;DX;DY;EH;EQ;ES;EU;FE;FI;FL;FO;GA;GB;GF;GN;GO;GT;GU;HD;HO;HX;IG

J'ai essayé avec ce code :

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "A;B;C;E;G;H;I;J;AB;AE;BD;BM;BO;BQ;BX;CE;CG;CI;CK;CS;CT;CV;CX;CZ;DE;DF;DL;DM;DO;DQ;DS;PV;DX;DY;EH;EQ;ES;EU;FE;FI;FL;FO;GA;GB;GF;GN;GO;GT;GU;HD;HO;HX;IG"
If ToggleButton1.Value Then
    Application.ActiveSheet.Columns(xAddress).Hidden = True
Else
    Application.ActiveSheet.Columns(xAddress).Hidden = False
End If
End Sub

Mais lorsque que je clique sur mon bouton à bascule, un message d'erreur me dit que le code n'est pas bon et c'est la ligne avec "true" qui pose problème. est-ce que vous pouvez m'aider ?

Bonjour, Adresse mal Rédigée et séparateur virgule pas point-virgule.

Toglebutton1.value doit être = à true aussi.

çà doit plutôt ressembler à çà .

Private Sub ToggleButton1_Click()

Dim xAddress As String
xAddress = "A:A,B:B,C:C"

If ToggleButton1.Value = True Then
    Range(xAddress).EntireColumn.Hidden = True
Else
  Range(xAddress).EntireColumn.Hidden = False
End If
End Sub

Je vous laisse le soin de rajouter les colonnes qui manque

Super merci beaucoup,

Effectivement ca a bien fonctionné !