Option Explicit
Sub Liste()
' liste moteur de recherche
Dim TF(), LF As Long, TNoms(), NMax As Long, TA() As Long, _
NDem As Long, N As Long, LR As Long, TR(1 To 80, 1 To 2)
TF = Feuil1.[E5:F11].Value
For LF = 1 To UBound(TF, 1)
TNoms = ThisWorkbook.Worksheets(TF(LF, 1)).UsedRange.Value
NMax = UBound(TNoms, 1)
InitAléa TA, NMax
NDem = TF(LF, 2): If NDem > NMax Then NDem = NMax
For N = 1 To NDem
LR = LR + 1: TR(LR, 1) = LR: TR(LR, 2) = TNoms(TA(N), 1)
Next N, LF
Feuil1.[A12].Resize(80, 2).Value = TR
End Sub
Private Sub InitAléa(TA() As Long, ByVal Nombre As Long)
Dim P1 As Long, P2 As Long, A As Long
ReDim TA(1 To Nombre)
For P1 = 1 To Nombre: TA(P1) = P1: Next P1
Randomize
For P1 = Nombre To 2 Step -1
P2 = Int(Rnd * P1) + 1
A = TA(P2): TA(P2) = TA(P1): TA(P1) = A
Next P1
End Sub