Bonjour tlm,
Le code ci-dessous ne veux pas passer et ca bloque au niveau de la première ligne, j'ai essayé d'optimiser le code mais ca foire en sachant que la feuille Input contient un tableau A1:C5 et je voudrais récupérer le tableau A2:C4 c'est a dire éviter de prendre ni la première ligne ni la dernière

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Report()
 
    Windows("Daily.xls").Sheets("Input").Activate
    Range("A2", Range("A2").End(xlDown).End(xlToRight)).Copy
 
    Windows("Historical_Report.xls").Activate
    Sheets("Historical").Range("A2").End(xlDown).Select
    Cells(ActiveCell.Row + 1, 1).Select
    ActiveSheet.Paste
 
End Sub
Merci pour votre aide