'=====Importation du .txt dasn une nvelle fenetre
Workbooks.OpenText Filename:= _
MONFICHIER.TXT, Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
, TrailingMinusNumbers:=True
'=====Copie de la bonne case
Windows(MONFICHIER.TXT).Activate
Range("A1").Select
temp = ActiveCell.Value
ActiveWindow.Close
'====Collage dans la première fenêtre
Windows("FdTv0.1_Global_Stage.xlsm").Activate
Range("B4").Select
ActiveCell.Offset(Vertical, 7).Select
ActiveCell = temp