Sub CalculTableau()
Dim TPress(), TNbTours(), TRés(), L As Long, C As Long
TPress = [A78:A93].Value: TNbTours = [C77:J77].Value
ReDim TRés(1 To UBound(TPress, 1), 1 To UBound(TNbTours, 2))
For L = 1 To UBound(TPress, 1): For C = 1 To UBound(TNbTours, 2)
Cells(23, "G").Value = TPress(L, 1)
Cells(40, "F").Value = TNbTours(1, C)
TRés(L, C) = Cells(46, "F").Value: Next C, L
Cells(78, "C").Resize(UBound(TRés, 1), UBound(TRés, 2)).Value = TRés
End Sub