Option Explicit
Private Sub ComboBox4_Change()
Dim a As Integer
Dim Trouve As Range
'Recherche de l'info clef
Set Trouve = Sheets("Feuil2").Range("A:A").Find(combobox4.Value, lookat:=xlWhole)
'Si le résultat n'est pas null
If Not Trouve Is Nothing Then
TextBox3 = Range("Feuil2!B" & Trouve.Row)
TextBox4 = Range("Feuil2!C" & Trouve.Row)
End If
End Sub