With Sheets("1").Range("D1:J1").EntireColumn
.Hidden = Not .Hidden
Sheets(3).Range("B1:C1,E1:I1").EntireColumn.Hidden = Not Sheets(3).Range("B1:C1,E1:I1").EntireColumn.Hidden
If .Hidden Then CommandButton12.Caption = "Afficher" Else CommandButton12.Caption = "Masquer"
End With
Sheets("3").Visible = Not Sheets("3").Visible
Unload MENU
End Sub