Sub MaJOptButton()
Dim I As Integer, TabOb() As String
TabOb = Split("1,2,3,4,5,6,9,10,18,19,20,21,22", ",")
For I = 0 To UBound(TabOb)
With Me("OptionButton" & TabOb(I))
If I > 8 And I <> 19 Then .Value = False
.Font.Bold = True
.ForeColor = &H808080
End With
Next I
End Sub