'Vérifie les résultats/min-max
If val1 < nom1_4 + tolmoins1_4 Or val1 > nom1_4 + tolplus1_4 Then
Me.Label3.ForeColor = &HFF& 'rouge
Me.Label4.ForeColor = &HFF& 'rouge
Me.OptionButton1.Visible = True
Me.OptionButton2.Visible = True
Me.OptionButton3.Visible = True
Me.OptionButton4.Visible = True
Me.Frame1.BorderStyle = fmBorderStyleSingle
Else
Me.Label3.ForeColor = &H8000& 'vert
Me.Label4.ForeColor = &H8000& 'vert
Me.OptionButton1.Visible = False
Me.OptionButton2.Visible = False
Me.OptionButton3.Visible = False
Me.OptionButton4.Visible = False
Me.Frame1.BorderStyle = fmBorderStyleNone
End If