Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If IsNumeric(Application.Match(Sh.Name, Array("Jeudi", "Vendredi", "Samedi", "Dimanche", "Lundi", "références", "Planning"))) _
And Target.Address = IIf(LCase(Sh.Name) = "références", "$L$2", "$G$3") Then _
On Error Resume Next: Application.Goto Sheets(CStr(Target)).[A1]
End Sub