Réponse acceptée !
Voila une version de ton code qui marche
Dim ff As Integer
Dim i As Integer
Dim j As Integer
i = MSFlex.Rows
MSFlex.Cols = 4
ff = FreeFile
Open TonFichier For Input As #ff
Do While Not EOF(ff)
MSFlex.Rows = i + 1
For j = 0 To 3
If Not EOF(ff) Then
Input #ff, a$
MSFlex.TextMatrix(i, j) = a$
Else
Exit Do
End If
Next j
i = i + 1
Loop
Close #ff
Coloration syntaxique automatique
---- Sevyc64 (alias Casy) ----
# LE PARTAGE EST NOTRE FORCE #