Sub choisir_fichier()

    Dim DestBook As Workbook, SourceBook As Workbook
    Dim destcell As Range
    Dim Retval


       
       Application.ScreenUpdating = False

      
       Set DestBook = activeworkbook
       Set destcell = Worksheets("feuil1").Range("A2")

   
         Retval = Application.GetOpenFilename
     
            
 
       
             If Retval = False Then
            MsgBox "Aucun fichier sélectionné."
             Exit Sub
             End If
        Workbooks.OpenText Filename:=Retval, Origin:= _
        xlMSDOS, StartRow:=9, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, 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, 2), Array(11, 1)), TrailingMinusNumbers:=True
    
      
       Set SourceBook = activeworkbook

       
       Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy

     
     
       DestBook.Activate
       destcell.PasteSpecial Paste:=xlValues

      
       SourceBook.Close False

    Worksheets("feuil3").Activate
   End Sub