Re-
Tu disais que tu avais un bouton "Valider", modifie donc ton code comme ci-dessous :
Private Sub OptionButton2_Click()
'Supprime tout le code concernant tes OptionButton, même le Private Sub et le End Sub
End Sub
Private Sub Button1Valider_Click()
'Ici tu met tes codes OptionButton :
Application.EnableEvents = False
Application.ScreenUpdating = False
If OptionButton2 = True Then
Columns("A:AY").EntireColumn.Hidden = True
Columns("F:M").EntireColumn.Hidden = False
Columns("O:Q").EntireColumn.Hidden = False
Columns("S:S").EntireColumn.Hidden = False
Columns("U:U").EntireColumn.Hidden = False
Columns("W:Z").EntireColumn.Hidden = False
End If
If OptionButton3 = True Then
'Code du Button3
End If
If OptionButton4 = True Then
'Code du Button4
End If
'ect...
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Voilà! Comme sa le code s'éxécute uniquement si tu appuie sur ton Bouton Valider et si l'option Button correspondant est coché ;D
A dispo!