Sub Tirage()
Derlig = Sheets("Questions").Range("A65500").End(xlUp).Row ' Nombre de question
Randomize ' Initialise le nbre aléatoire
N = 1 + Int(Derlig * Rnd) ' Tirage au sort
[B7] = Sheets("Questions").Cells(N, "A") ' Inscrit le N° question
[C7] = Sheets("Questions").Cells(N, "B") ' Et la question.
End Sub