XL 2010 Valider avec un un seul textbox selon le choix

Private Sub ComboBox1_Change()
    ComboBox2.Value = Cells(Application.Match(Val(ComboBox1.Value), Sheets("Feuil1").[A:A], 0), "B")
End Sub
Private Sub ComboBox2_Change()
    ComboBox1.Value = Cells(Application.Match(ComboBox2.Value, Sheets("Feuil1").[B:B], 0), "A")
End Sub
Private Sub CommandButton1_Click()
    On Error GoTo FinInsere: Dim L%, C%
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Or ComboBox3.Value = "" Then Exit Sub
    If TextBox1.Value = "" Then MsgBox "Pas de note entrée.": Exit Sub
    With Sheets("Feuil1")
        L = Application.Match(Val(ComboBox1.Value), .[A:A], 0)
        C = Application.Match(ComboBox3.Value, .[3:3], 0)
        Cells(L, C) = TextBox1.Value
    End With
    Unload UserForm1
FinInsere:
End Sub