Re le forum
Dominique la macro ressemble a ceci (un peu modifier)
Option Explicit
Private Sub CommandButton1_Click()
Dim Derligne As Byte
Dim Myvalue As Byte
Dim Ligne As Byte
Dim Colonne As Byte
Derligne = Range("a65535").End(xlUp).Row
Myvalue = InputBox("Entrer le nombre de participant", "Triathlon", "1")
Range("A3
" & Derligne) = ""
For Ligne = 3 To Myvalue + 2
Range("a" & Ligne) = "Equipe " & Ligne - 2
Next Ligne
Randomize
[B3] = Int(Myvalue * Rnd + 1)
[C3] = Int(Myvalue * Rnd + 1)
[D3] = Int(Myvalue * Rnd + 1)
For Colonne = 2 To 4
For Ligne = 1 To Myvalue - 1
Do
Cells(3, Colonne).Offset(Ligne, 0).Value = Int(Myvalue * Rnd + 1)
Loop Until IsError(Application.Match(Cells(3, Colonne). _
Offset(Ligne, 0), Cells(3, Colonne).Resize(Ligne, 1), 0))
Next Ligne
Next Colonne
End Sub
Mytå