Sub open_file() Dim intfic As Integer, i As Integer, j As Integer Dim strligne As String Dim tabl(1 To 4, 1 To 4) As Double intfic = FreeFile Open "E:\DONNEES\c29070\MES DOCUMENTS\201208_temp\201207_vba_creer-fichier\fichier.txt" For Append As intfic While Not EOF(intfic) Line Input #intfic, strligne MsgBox strligne Wend For j = 1 To 4 Step 1 For i = 1 To 4 Step 1 tabl(i, j) = i * 2.36 Print #intfic, tabl(i, j) Next i Next j Print #intfic, "fin de l ecriture du tableau" Close intfic End Sub