Const X As Integer = 12 ' par exemple 12ème ligne Dim MaVariable As String, i As Integer, Libre As Integer Libre = FreeFile Open "C:\Chemin\Fichier.txt" For Input As #Libre For i = 1 To X Line Input #Libre, MaVariable Next i Close Libre MsgBox "La " & X & " ème ligne contient : " & MaVariable