Bonjour,
Dans le module de la feuille, remplaces le code existant par celui-ci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Me.ListObjects(1).ListColumns(5).DataBodyRange
If Not Intersect(Target, rng) Is Nothing Then Target.Offset(, -1).Select
Set rng = Me.ListObjects(1).ListColumns(6).DataBodyRange
If Not Intersect(Target, rng) Is Nothing Then Target.Offset(, -1).Select
Set rng = Me.ListObjects(2).ListColumns(5).DataBodyRange
If Not Intersect(Target, rng) Is Nothing Then Target.Offset(, -1).Select
Set rng = Me.ListObjects(2).ListColumns(6).DataBodyRange
If Not Intersect(Target, rng) Is Nothing Then Target.Offset(, -1).Select
End Sub