Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [R2:U9]) Is Nothing Then _
[E5] = ExecuteExcel4Macro("'I:\Opérations\Feuille de temps\" & _
[H1] & "\Test Paye\[Payroll " & Format([J1], "yyyy-mm-dd") & _
".xls]Daily (Supervisor B)'!R98C4")
End Sub