Dim X As Range
'recherche dans la colonne B -de columns(2)- le contenu sélectionné dans la colonne 1 de la liste)
Set X = Columns(2).Find(ListBox1.Value, , xlValues, xlPart, , , False)
'change de sélection de cellule en fonction du résultat
If Not X Is Nothing Then
'si trouvé, va à la cellule de ligne X.Row et de colonne 2 (ou B) en la plaçant en haut de l'écran
Application.GoTo Cells(X.Row, 2), Scroll:=True
Else
'sinon, va à la cellule de ligne dont le N° est en colonne 6 de la liste et de colonne 2 (ou B)
Application.GoTo Cells(ListBox1.Column(5), 2)
End if
End Sub