Comparer l'efficacité des formules Excel

Quelque chose comme ceci devrait fonctionner :

Public Function speedtest()
t = Now()
For i = 1 To 200000
    'c = Application.WorksheetFunction.CountIf(ActiveSheet.Range("A1"), ActiveSheet.Range("B1"))
    c = (ActiveSheet.Range("A1") = ActiveSheet.Range("B1"))
Next i
t1 = Now()
dt = Format(t1 - t, "ss")
ms = MsgBox(dt & " seconds", vbOKOnly)
End Function

La formule à tester se trouve à l'intérieur du for boucle. L'une est commentée en utilisant ' Vous pouvez donc commenter et décommenter pour tester l'un ou l'autre.