Private Sub Menu_Change()
Dim k%, lig%
OptionButton1 = False: OptionButton2 = False: OptionButton3 = False
lig = Menu.ListIndex + 2
Controls("OptionButton" & Right(Feuil1.Cells(lig, 2), 1)) = True
For k = 1 To 4
Controls("TextBox" & k) = Feuil1.Cells(lig, k + 2)
Next
End Sub