Salut Isabelle,
Pour la deuxième fois aujourd'hui, tu me sauves la vie
Ton code fonctionne parfaitement.
On peut également simplifier passablement avec simplement ces deux lignes de code :
ActiveSheet.OptionButtons("Option Button 2").Value = 1
ActiveSheet.OptionButtons("Option Button 13").Value = 1
Très bonne fin de dimanche (ou peut-être à tout à l'heure, mon projet n'est de loin pas fini).