Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True Then
Columns("F:I").EntireColumn.Hidden = True
Controls("checkbox1").Caption = "Masquer"
Else
Controls("checkbox1").Caption = "Afiicher"
Columns("F:I").EntireColumn.Hidden = False
End If
End Sub