affichage dans combobox et textbox en fonction de

Private Sub ComboBox3_Change()
 For i = 2 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    If LCase(Cells(i, 1)) = ComboBox2 And Cells(i, 2) = ComboBox3 Then
        TextBox1 = Cells(i, 3)
        TextBox2 = Cells(i, 4)
        Exit For
    End If
 Next
End Sub

Private Sub ComboBox3_Change()
If ComboBox3 = "" Then Exit Sub
On Error Resume Next
ligne = Application.Match(ComboBox2, Sheets("980").[A:A], 0) + Application.Match(ComboBox3, Array("matin", "après midi", "nuit"), 0) - 1
If IsEmpty(ligne) Then Exit Sub
TextBox1 = Cells(ligne, 3)
TextBox2 = Cells(ligne, 4)
End Sub