Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
TextBox1 = "": TextBox2 = "": TextBox3 = ""
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
End If
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
lig = Application.Match(ComboBox1, Feuil113.[C:C], 0)
If IsNumeric(lig) Then
If Cells(lig + 8, 3) = ComboBox1 Then Opt_Ast_Oui = True
If Cells(lig + 9, 3) = ComboBox1 Then Opt_Gou_Oui = True
TextBox1 = Cells(lig, 1): TextBox2 = Cells(lig, 2): TextBox3 = ComboBox1
End If
End Sub