Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Dim MaDate As Date, I As Integer
Const NbJours As Integer = 7
MaDate = CDate(Mid(Target, 6, 10))
For I = -1 To -NbJours Step -1
Range("Q1").Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$A$4"
Range("O" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$C$4"
Range("P" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$E$4"
Range("Q" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$D$4"
Range("R" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$F$4"
Range("S" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$G$4"
Range("T" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor A)'!$P$7"
Range("U" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor B)'!$S$8"
Range("V" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor C)'!$P$8"
Range("W" & 11 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor C)'!$P$7"
'Personne Suivante
Range("Q11").Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$A$5"
Range("O" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$C$5"
Range("P" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$E$5"
Range("Q" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$D$5"
Range("R" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$F$5"
Range("S" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$G$5"
Range("T" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor A)'!$P$9"
Range("U" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor B)'!$S$10"
Range("V" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor C)'!$P$10"
Range("W" & 21 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor C)'!$P$9"
'Personne Suivante
Range("Q21").Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$A$6"
Range("O" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$C$6"
Range("P" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$E$6"
Range("Q" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$D$6"
Range("R" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$F$6"
Range("S" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Payroll) (Total)'!$G$6"
Range("T" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor A)'!$P$11"
Range("U" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor B)'!$S$12"
Range("V" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor C)'!$P$12"
Range("W" & 31 + I).Formula = "='[Payroll " & Format(MaDate + I + 1, "yyyy-mm-dd") & ".xls]Daily (Supervisor C)'!$P$11"
Next I
Range("Q1") = Range("Q1").Value
Range("P4:P10") = Range("P4:P10").Value
Range("Q4:Q10") = Range("Q4:Q10").Value
Range("R4:R10") = Range("R4:R10").Value
Range("S4:S10") = Range("S4:S10").Value
Range("T4:T10") = Range("T4:T10").Value
Range("U4:U10") = Range("U4:U10").Value
Range("V4:V10") = Range("V4:V10").Value
Range("W4:W10") = Range("W4:W10").Value
'Personne Suivante
Range("Q11") = Range("Q11").Value
Range("P14:P20") = Range("P14:P20").Value
Range("Q14:Q20") = Range("Q14:Q20").Value
Range("R14:R20") = Range("R14:R20").Value
Range("S14:S20") = Range("S14:S20").Value
Range("T14:T20") = Range("T14:T20").Value
Range("U14:U20") = Range("U14:U20").Value
Range("V14:V20") = Range("V14:V20").Value
Range("W14:W20") = Range("W14:W20").Value
'Personne Suivante
Range("Q21") = Range("Q21").Value
Range("P24:P30") = Range("P24:P30").Value
Range("Q24:Q30") = Range("Q24:Q30").Value
Range("R24:R30") = Range("R24:R30").Value
Range("S24:S30") = Range("S24:S30").Value
Range("T24:T30") = Range("T24:T30").Value
Range("U24:U30") = Range("U24:U30").Value
Range("V24:V30") = Range("V24:V30").Value
Range("W24:W30") = Range("W24:W30").Value
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub