I = 1
J = 8
' condition de rapatriement des OUI/NON
If O.Cells(LI, J).Value = "OUI" Then
' si la case de la ligne LI, colonne J contient "OUI"
Me.Controls("OptionButton" & I).Value = True
'L'optionButton1 est cliqué, en oui
Else
'sinon
If O.Cells(LI, J).Value = "NON" Then
'si la case contient "NON"
Me.Controls("OptionButton" & I + 1).Value = True
'l'optionbutton2 est cliqué, en NON
Else
If O.Cells(LI, J).Value = "" Then
' si il n'y a rien
Me.Controls("OptionButton" & I).Value = False And Me.Controls("OptionButton" & I + 1).Value = False
' les 2 optionbutton demeurent non cliqués
End If
End If
End If