Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LO As ListObject
On Error Resume Next
Set LO = ActiveSheet.ListObjects(1)
If Err <> 0 Then Exit Sub
If Target.Cells.Count = 1 And Target.HasFormula Then
If Not Application.Intersect(LO.Range, Target) Is Nothing Then
Target.Offset(0, -1).Select
End If
End If
On Error GoTo 0
'--- suite éventuelle de SelectionChange ---
'...
End Sub