Sub Bouton2_QuandClic()
Dim tablo(1 To 100)
Dim i As Byte, j As Byte
Dim doublons As Boolean
For i = 1 To 100
Do
tablo(i) = Int((100 * Rnd) + 1)
doublons = False
For j = 1 To 100
If i <> j Then
If tablo(j) <> '' Then
If tablo(i) = tablo(j) Then
doublons = True
Exit For
End If
End If
End If
Next j
Loop Until Not doublons
Next i
For i = 1 To 100
Cells(i, 2) = tablo(i)
Next i
End Sub