XL pour MAC Cellules sélectionnées automatiquement après avoir choisi un élément dans une liste de choix

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    ValA = Target.Address
    If ValA = "$E$6" Then Range("$G$6").Select
    If ValA = "$G$6" Then Range("$I$6").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E6,G6]) Is Nothing Or Target(1) = "" Then Exit Sub
On Error Resume Next
[E6,G6,I6].Find("", [I6], xlValues).Select
End Sub

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 5 Then Cells(Target.Row, 2 + Target.Column).Select
    If Target.Column = 7 Then Cells(Target.Row, 2 + Target.Column).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target(1), [E6:E1000,G6:G1000]) Is Nothing Or Target(1) = "" Then Exit Sub
On Error Resume Next
Intersect(Target(1).EntireRow, [E6:E1000,G6:G1000,I6:I1000]).Find("", Intersect(Target(1).EntireRow, [I6:I1000]), xlValues).Select
End Sub