Sub Données_transférer_du_fichier_A_vers_fichier_B()
Dim Chemin As String, Fichier As String, I As Integer
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Chemin = "C:\Users\DoubleZero\Downloads\" 'à adapter
Fichier = "00 - looping034 - Fichier destinataire.xls" 'à adapter
Workbooks.Open Chemin & Fichier
Windows("00 - looping034 - Fichier source.xls").Activate 'à adapter
Range(Range("e67"), Range("e67").End(xlDown)).Copy
Windows("00 - looping034 - Fichier destinataire.xls").Activate
With Sheets("Toto") 'à adapter
.Columns(.Range("IV1").End(xlToLeft).Column).Offset(0, 1).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.EntireColumn.AutoFit
ActiveWorkbook.Close SaveChanges:=True
With Application
.CutCopyMode = False
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub