il ya plusieurs solutions.
en voilà-une
Set actWB = ActiveWorkbook.ActiveSheet
ChDir "C:\WINNT\Profiles\royers\Bureau\Projet"
filetoOpen = Application.GetOpenFilename("Fichiers Points (*.pts),*.pts,Fichiers au format prn (*.pts),*.pts")
If filetoOpen <> False Then
Workbooks.OpenText FileName:= _
filetoOpen, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1))
Set SrcWB = ActiveWorkbook
Range("A1").CurrentRegion.Copy actWB.Range("E72")
SrcWB.Close savechanges:=False
par contre il faut que tu dégôtes une macro pour remplacer les ".", car ces valeurs seront alors considérées comme du texte et non come valeurs décimales (si sur tes pc, la virgule est définie comme séparatuer décimal)
bye
stpehane