Sub qualif()
Dim tablo() As Variant
Dim tablo2() As Variant
tablo = Sheets("PILOTES").Range("B3:B22").Value
ReDim tablo2(1 To UBound(tablo, 1), 2)
For i = LBound(tablo2, 1) To UBound(tablo2, 1)
tablo2(i, 1) = ""
Next i
i = 1
While tablo2(UBound(tablo2, 1), 1) = ""
DejaTiré = False
tirage = WorksheetFunction.RandBetween(1, 20)
For j = LBound(tablo2, 1) To UBound(tablo2, 1)
If tablo2(j, 1) = tirage Then
DejaTiré = True
Exit For
End If
Next j
If Not DejaTiré Then
tablo2(i, 1) = tirage
tablo2(i, 2) = tablo(tirage, 1)
i = i + 1
DejaTiré = False
End If
Wend
saut = 0
For i = LBound(tablo2, 1) To UBound(tablo2, 1)
Sheets("Qualif").Range("D2").Offset(i + saut, 0) = tablo2(i, 2)
If i Mod 4 = 0 Then saut = saut + 1
Next i
End Sub