Private Sub UserForm_Initialize()
Me.OptionButton1 = Feuil1.OptionButton1
Me.OptionButton2 = Feuil1.OptionButton2
Me.OptionButton3 = Feuil1.OptionButton3
Me.OptionButton4 = Feuil1.OptionButton4
Me.OptionButton5 = Feuil1.OptionButton5
End Sub
Private Sub OptionButton1_Change()
Feuil1.OptionButton1 = Me.OptionButton1
End Sub
Private Sub OptionButton2_Change()
Feuil1.OptionButton2 = Me.OptionButton2
End Sub
Private Sub OptionButton3_Change()
Feuil1.OptionButton3 = Me.OptionButton3
End Sub
Private Sub OptionButton4_Change()
Feuil1.OptionButton4 = Me.OptionButton4
End Sub
Private Sub OptionButton5_Change()
Feuil1.OptionButton5 = Me.OptionButton5
End Sub