Salut,
trouvé sur le et adapté à mes besoins pour le lotto belge:
à toi d'adapter
Patrick
' 2 eme solution
'Places numbers in A1:A6
Sub TheBestLuckyLottoPicker()
Dim t As Integer, m As Integer, b As Integer
Range('A2').Select
ActiveCell.Offset(0, 0).Rows('1:6').EntireRow.Select
Selection.Insert Shift:=xlDown
Do While b < 6
k = 6: n = 42
t = 0: m = 0
Do While m < k
Randomize
If (n - t) * Rnd() < k - m Then
m = m + 1
Cells(m, b + 1) = t + 1
End If
t = t + 1
Loop
b = b + 1
Loop 'b
Range('A1').Select
ActiveCell.Offset(0, 0).Rows('1:2').EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveSheet.Range('F1') = 'BONNE CHANCE'
ActiveSheet.Range('A1') = 'TIRAGE ALEATOIRE POUR LE PROCHAIN LOTTO'
Range('A1').Select
End Sub