Message d'erreur innatendu..

Application.ScreenUpdating = False

'        Copiage du contenu du fichier text ouvert dans un nouveau workbook
        Workbooks.OpenText Filename:=FileToOpenCAB1_path _
            , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
            :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
            False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
            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))
        
        Set wbk2 = ActiveWorkbook 'MsgBox wbk2.Name 'on copie le nouveau workbook du fichier text dans une variable
        With wbk2.Sheets(1)
            .Rows("1:4").Delete Shift:=xlUp       'on supprime les lignes 1 a 4
            .Cells.Copy Destination:=wbk1.Sheets("Resultat").Range("a1")         'on copie le contenu
        End With
'        wbk1.Activate   'On reactive le 1er workbook
'        Sheets("Resultat").Activate       'on colle le contenu dans longlet Resultat
'        Range("a1").Select
'        ActiveSheet.Paste
        TEST = 0