Salut,
il existe une fonction qui génère 100000 identifieurs uniques en moins de 120 ms :
Sub BulkGuids()
Dim arr As Variant, bm As New cBenchmark, tim
tim = Timer
arr = Application.Run("GenerateGuids", 100000)
[B2] = Timer - tim
' arr est maintenant un tableau 2D de GUIDs...