Salut le Forum
Une petite macro qui fait ce que tu demandes
Option Explicit
Sub aleatoire()
Dim i As Byte
Dim Nbre As Byte
For i = 1 To 9
Cells(i, 1) = Int((9 * Rnd) + (i - 1) * 10 + 1)
Saut:
Nbre = Int((9 * Rnd) + (i - 1) * 10 + 1)
If Nbre = Cells(i, 1) Then GoTo Saut
Cells(i, 2) = Nbre
Next i
End Sub
Mytå