Option Explicit
Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (x As Currency) As Boolean
Private Declare Function QueryPerformanceCounter Lib "Kernel32" (x As Currency) As Boolean
Sub Test()
Dim LR&, NbVal&, TV(), LE&, C&, TX() As Long, QPF As Currency, QPCDéb As Currency, QPCFin As Currency
QueryPerformanceFrequency QPF
[B3:C23].Value = Empty
For LR = 3 To 23
NbVal = 3125 * 2 ^ ((LR - 7) / 2)
ReDim TV(1 To NbVal, 1 To 3)
For LE = 1 To NbVal: For C = 1 To 3: TV(LE, C) = Int(Exp(Rnd * 3)): Next C, LE
Cells(LR, 1) = NbVal
QueryPerformanceCounter QPCDéb
TbIdxTVcd TV, 1, 2, 3
QueryPerformanceCounter QPCFin
Cells(LR, 2) = (QPCFin - QPCDéb) / QPF
DoEvents
QueryPerformanceCounter QPCDéb
IndexerParFusion TX, TV, 1, 2, 3
QueryPerformanceCounter QPCFin
Cells(LR, 3) = (QPCFin - QPCDéb) / QPF
DoEvents
Next LR