Bonjour,
Essaie avec ce code (la listbox est supposée avoir 5 colonnes : à adapter en fonction du nbre de colonnes)
'sélectionne la première cellule de la ligne trouvée
If ListBox1.ListCount = 0 Then Exit Sub
For Each cel In zone.Offset(0, 4)
If cel = ListBox1.Value Then
cel.Offset(0, -4).Select
TextBox1 = ActiveCell.Offset(0, n° colonne souhaitée)
textbox2= etc...
exit for
end if
next cel