Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B1000")) Is Nothing And Target <> "" Then
Ligne = Application.Match(Target, Sheets("société").Range("A:A"), 0)
If IsError(Ligne) Then Exit Sub
Sheets("société").Activate
Sheets("société").Cells(Ligne, "A").Select
End If
Fin:
End Sub