'Prévisualisation
Private Sub OptionButton1_Click()
Me.Controls('CoulPrinc1').BackColor = Me.Controls('Image1').BackColor
Me.Controls('CoulPrinc2').BackColor = Me.Controls('Image1').BackColor
End Sub
Private Sub OptionButton2_Click()
Me.Controls('CoulPrinc1').BackColor = Me.Controls('Image2').BackColor
Me.Controls('CoulPrinc2').BackColor = Me.Controls('Image2').BackColor
End Sub