Sub importer()
'H:\02-Exploitation\03-Préparation\Manquants 1er tour\2021\01-Janvier 2021\ = cheminsource
' fichier source (0100 - Analyse_des_manquants_1er_tour 18.01.2021.xls)
' range ("A1") liste déroulante pour changer date et donc de fichier
Dim classeurSource As Workbook, classeurDestination As Workbook
fichierSource = Sheets("VISU Manquant 1er tour").Range("b1")
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set classeurSource = Workbooks.Open(Filename:="H:\02-Exploitation\03-Préparation\Manquants 1er tour\2021\01-Janvier 2021\0100 - Analyse_des_manquants_1er_tour " & fichierSource & ".xls")
Set classeurDestination = ThisWorkbook
classeurSource.Sheets("Sheet").Range("AA:AH").Copy
classeurDestination.Sheets("BdD").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
classeurSource.Close True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub