Dim NOM$, WB As Workbook
With Application.FileDialog(msoFileDialogOpen)
If .Show = -1 Then
.Execute
Else
MsgBox "Aucun classeur sélectionné", vbCritical
End If
End With
Set WB = ActiveWorkbook
Application.ScreenUpdating = False
With WB.ActiveSheet
'*************************************************
' Choix des colonnes à importer
' F2 à T2 feuille Extraction
'*************************************************
.Range("F2:T" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
'ThisWorkbook.Worksheets("IMPORT").[A2].PasteSpecial xlPasteValues
'''Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
ThisWorkbook.Worksheets("IMPORT").Cells(.Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
Application.CutCopyMode = False ' Vide le presse papier après l'importation
End With
WB.Close Savechanges:=False
MsgBox "Import terminé", vbInformation
Application.ScreenUpdating = True