Prb de recherche de valeur

Bonjour,

Je suis actuellement confronté à un problème.

J'ai construit une macro composée d'un bouton commande qui ouvre une userform.
Cette userform permet de croiser des valeur en ligne et en colonne d'un tableau excel.

La voici :

Option Explicit 'oblige à déclarer toutes les variales
Private Sub ComboBox1_Change()
Call cherche
End Sub

Sub cherche()
Dim c As Double
Dim l As Double
l = Range("B6:B34").Find(ComboBox1.Value).Row
c = Range("C6:G6").Find(ComboBox2.Value).Column
TextBox1.Value = Cells(l, c).Value

End Sub

Private Sub ComboBox2_Change()
Call cherche
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm2_Click()

End Sub

Private Sub UserForm2_Initialize()
Call cherche
End Sub


Private Sub UserForm_Click()

End Sub


Seulement, j'aimerais pouvoir saisir la valeur librement dans la combobox1 (ou la transformer en textbox si besoin), que celle-ci renvoie à la valeur immédiatement inférieure de la liste B6:B34.
Le tout pour obtenir le resultat dans la textbox existante

Exemple : j'ai dans ma liste les valeur 100/110/120
Si je saisie 118, j'aimerais que la valeur retenue soit 110.

Quelqu'un peut-il m'aider ?

Merci d'avance

Anne Sophie