Fichier = "C:\fichier.txt" MyFile = FreeFile Open Fichier For Output As MyFile With MSFlexGrid1 For i = .FixedRows To .Rows - 1 .Row = i tmp = "" For j = .FixedCols To .Cols - 1 .Col = j tmp = tmp & .Text & vbTab Next j Print #MyFile, Left(tmp, Len(tmp) - 1) Next i End With Close MyFile