Bonsoir Roby
Une petite macro qui place 100 nombres aléatoires dans la première colonne.
Sub AleatoireColonne()
Dim Myvalue As Byte
Dim Ligne As Byte
Myvalue = 100
Randomize
[A1] = Int(Myvalue * Rnd + 1)
For Ligne = 1 To 99
Do
Cells(1, 1).Offset(Ligne, 0).Value = Int(Myvalue * Rnd + 1)
Loop Until IsError(Application.Match(Cells(1, 1). _
Offset(Ligne, 0), Cells(1, 1).Resize(Ligne, 1), 0))
Next Ligne
End Sub
Cordialement
Bernard