Dim Ligne() Dim x As Integer 'lecture et stockage dans le tableau Ligne Open "c:\\fichier.txt" For Input As #1 Do While Not EOF(1) ReDim Preserve Ligne(x) Line Input #1, t$ Ligne(x) = t$ x = x + 1 Loop Close #1 Randomize x = (Rnd * UBound(Ligne)) 'Nb aléatoire Text1 = Ligne(x)