Option Explicit
Private Sub Worksheet_Activate()
Dim TDon(), TRés(1 To 1, 1 To 10), C As Long
TDon = Feuil1.[C5:P20].Value
For C = 1 To 5
TRés(1, C) = TDon(12, C + 9)
TRés(1, C + 5) = TDon(16, C + 9)
Next C
Me.[B2:K2].Offset(TDon(1, 1) - Me.[A2].Value, 0).Value = TRés
End Sub