Générer une série aléatoire et adapter rechercheV à Visual Basic

[dge]

Bonjour, une question me taraude depuis longtemps j'aimerai générer une série de chiffre aléatoire de 0 à 25, c'est une boucle qui faudrait, à chaque fois que je rentrerai un nouveau candidat ( mon projet est une simulation sur gérance d'un établissement) une ligne se créerai pour lui avec des chiffre aléatoire.
Pour l'instant ça donne ça :

Sub gestion ()

For n = 2 To 6 'de la colonne B (2) à F (6)
'nbClients est une formule défini, visible dans le gestionnaire de noms (CTRL + F3)
'et basé sur le nombre de valeurs dans la colonne A de FICHIER
GenereSerieAleatoireSansDoublons [nbClients], Cells(4, n)
Next

' GenereSerieAleatoireSansDoublons 25, Range("C5")
' GenereSerieAleatoireSansDoublons 25, Range("D5")
' GenereSerieAleatoireSansDoublons 25, Range("E5")
' GenereSerieAleatoireSansDoublons 25, Range("F5")
' GenereSerieAleatoireSansDoublons 25, Range("G5")

End Sub




Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, Cell As Range)
Dim Tableau() As Integer, TabNumLignes() As Integer
Dim i As Integer, k As Integer

ReDim Tableau(NbValeurs)
ReDim TabNumLignes(NbValeurs)

For i = 1 To NbValeurs
TabNumLignes(i) = i
Tableau(i) = i
Next

'Initialise le générateur de nombres aléatoires
Randomize

For i = NbValeurs To 1 Step -1
k = Int((i * Rnd) + 1)
Cells(Cell.Row + i - 1, Cell.Column) = Tableau(TabNumLignes(k))
TabNumLignes(k) = TabNumLignes(i)
Next

End Sub

Et pour mon deuxième point c'est une facture longue et j'aimerai mettre rechercheV à la place pour que ca ne prenne que quelque ligne et pas 6 pages ^^

Merci d'avance pour votre aide.