Private Sub ComboBox3_Change()
With Sheets("Tableau")
derligne = .Range("F" & Rows.Count).End(xlUp).Row
If ComboBox3.Value <> "" Then
For I = 5 To derligne
TextBox1.Value = ""
If .Range("D" & I) = ComboBox1.Value Then
If .Range("E" & I) = ComboBox2.Value Then
If .Range("F" & I) = ComboBox3.Value Then
TextBox1 = .Range("G" & I)
Exit For
'I contient le N° de ligne
End If
End If
End If
Next I
Else
TextBox1.Value = ""
End If
End With
End Sub