Bonjour Jérôme,
Bienvenue sur le Forum.
Ton problème est résolu ou est-ce une fausse manipulation ? Au cas où si besoin,
Private Sub ComboBox1_AfterUpdate()
Dim cel As Object
For Each cel In Range("A3:A" & Range("A1000000").End(xlUp).Row)
If cel = Me.ComboBox1 Then Me.TextBox1 = cel.Offset(0, 4)
Next cel
End Sub
A+