Private Sub TextBox1_Change()
If ComboBox1.ListIndex = -1 Then ComboBox1 = "": ComboBox1.SetFocus: Exit Sub
If ComboBox2.ListIndex = -1 Then ComboBox2 = "": ComboBox2.SetFocus: Exit Sub
If ComboBox3.ListIndex = -1 Then ComboBox3 = "": ComboBox3.SetFocus: Exit Sub
Dim t$, tablo, i&
t = ComboBox2 & ComboBox3
With Feuil2 'CodeName de la feuille
tablo = .[A1].CurrentRegion.Resize(, 2) 'tableau VBA, plus rapide
For i = 2 To UBound(tablo)
If tablo(i, 1) & tablo(i, 2) = t Then
.Cells(i, Application.Match(Val(ComboBox1), .Rows(1), 0)) = TextBox1
Exit Sub
End If
Next
End With
End Sub