Bonsoir,
si possible je voudrais bien la solution en VBA
Ben, sans VBA, ça va pas être possible.....
Donc, en VBA, et en répondant stricto-sensu à ta question, ça pourrait donner ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Count > 1 Or Target = "" Then Exit Sub
If Not Intersect(Target, Range("B1")) Is Nothing Then
Set C = Columns(1).Find(Target, , , xlWhole)
If Not C Is Nothing Then C.Select
End If
End Sub
Bonne soirée