Bonjour,
C'est un problème de Tag commun à tous les boutons d'option qui manque. Ajoute les codes suivants, ça devrait y aller :
Private Sub OptionButton1_Click()
Label6.Tag = 2
Label8.Tag = ""
Label7.Tag = ""
End Sub
Private Sub OptionButton2_Click()
Label8.Tag = 2
Label6.Tag = ""
Label7.Tag = ""
End Sub
Private Sub OptionButton3_Click()
Label7.Tag = 2
Label6.Tag = ""
Label8.Tag = ""
End Sub