'La cellule de la feuille (Feuil1) contient en colonne 4 la valeur H ou est vide
If Feuil1.Cells(lig, 4) <> "" Then
Select Case Feuil1.Cells(lig, 4)
Case "H"
Result.OptionButton7.Value = 1
Result.OptionButton8.Value = 0
End Select
End If
'La cellule de la feuille (Feuil1) contient en colonne 5 la valeur F ou est vide
If Feuil1.Cells(lig, 5) <> "" Then
Select Case Feuil1.Cells(lig, 5)
Case "F"
Result.OptionButton8.Value = 1
Result.OptionButton7.Value = 0
End Select
End If