Private Sub TextBox1_AfterUpdate()
Dim LigF As Long, NumCde
Lig = 0
[COLOR=blue][B]NumCde = Left(Me.TextBox1.Value, 2)
[/B][/COLOR]With Sheets("adresse")
On Error Resume Next
LigF = .Range("E:E").Find(What:=NumCde, SearchOrder:=xlByRows).Row
On Error GoTo 0
If LigF <> 0 Then Me.ComboBox1.Value = .Range("A" & LigF)
End With
End Sub