Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A:A]) Is Nothing Then
Cells(Target.Row, "B").Select ' Si clic en A on va sur même ligne en colonne B
End If
Fin:
End Sub