Sub texte()
Dim SourceWkb As Workbook, NbLignes As Long, NbColonnes As Long
Set SourceWkb = Workbooks.OpenText(Filename:="Z:\cmr23-fmess-nok061110.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
, Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1)), _
TrailingMinusNumbers:=True)
NbColonnes = SourceWkb.ActiveSheet.Range("IV1").End(xlToLeft).Column
NbLignes = SourceWkb.ActiveSheet.Range("A65536").End(xlUp).Row
With SourceWkb.ActiveSheet
.Range(.Cells(2, 1), .Cells(NbLignes, NbColonnes)).Copy Destination:=ThisWorkbook.Worksheets("cmr23-fmess-nok").Range("A65536").End(xlUp).[COLOR=red]offset(1, 0)[/COLOR]
End With
SourceWkb.Close False
End Sub