Private Sub OptionButton1_Change()
ComboBox1.Visible = ad 'ad = cellule liée au bouton d'option
End Sub
Private Sub ComboBox1_GotFocus()
MsgBox "mettre en place le travail à faire", vbInformation, "ici,"
'pour finir, remettre l'option à false
ad = False 'ad = cellule liée au bouton d'option
End Sub