Salut Régis,
Voici une macro qui te permettra de tirer au sort 256 numéros :
Sub Tirage_256_Numéros()
Dim I As Integer, Num As Integer
Dim Temp As String
Temp = Chr(9)
For I = 1 To 256
Randomize Timer
Do
Num = Int(Rnd * 255) + 1
If InStr(Temp, Chr(9) & CStr(Num) & Chr(9)) = 0 Then
Temp = Temp & Chr(9) & CStr(Num)
Range("B" & CStr(I)) = Num
Exit Do
End If
Loop
Next
End Sub
La variable Temp sert à vérifier qu'un numéro n'a pas déjà été tiré.
A+
Horatio