Salut,
ceci devrait boucler mieux
Sub AAA()
'=====================================================================================================================
'Sert à sélectionner les cellules de la colonne A de la feuille data au hasard pour chacun des noms
'listés dans la feuille Liste noms
'i représente le nombre de fois que la boucle s'exécutera
Dim i As Byte
Dim Maxi As Integer, Z As Integer
Dim Valeur1 As Integer, Valeur2 As Integer
Dim Ligne As Integer
Valeur1 = Sheets('Liste Noms').Range('B1').Value
Valeur2 = Sheets('Liste Noms').Range('C1').Value
Sheets('data').Activate
' maxi = le nombre de lignes en onglet 'liste nom'
Maxi = Sheets('liste noms').Range('A65000').End(xlUp).Row
For Z = 1 To Maxi
For i = 1 To 3
Randomize
Ligne = Int((Valeur2 - Valeur1 + 1) * Rnd + Valeur1)
Cells(Ligne, 1).Select
'Met le texte de la cellule choisie en bleu
With Selection.Font
.ColorIndex = 5
End With
Next i
Next Z
End Sub
Bye