Sub GenereSerieAleatoireSansDoublons()
Dim LA As New Classe1, T(1 To 100000, 1 To 1), LMax As Long, L As Long
LA.Init ActiveSheet.[B3].Value + 1
LMax = ActiveSheet.[B4].Value
For L = 1 To LMax: T(L, 1) = LA.Aléat(L) - 1: Next L
ActiveSheet.[C6].Resize(100001, 3).ClearContents
ActiveSheet.[C6].Resize(LMax).FormulaR1C1 = "=IF(R2C2,R2C3,"""")"
ActiveSheet.[D6].Resize(LMax).Value = T
ActiveSheet.[E6].Resize(LMax).FormulaR1C1 = "=RC3&""-""&TEXT(RC4,""00000"")"
End Sub