Sub Choix()
Dim Valeur1 As Integer, Valeur2 As Integer
Dim Ligne As Integer
Valeur1 = Sheets('Liste Noms').Range('E1').Value
Valeur2 = Sheets('Liste Noms').Range('F1').Value
Randomize
Ligne = Int((Valeur2 - Valeur1 + 1) * Rnd + Valeur1)
Cells(Ligne, 1).Select
End Sub