parce que au boulot on m'a demandé de faire une Macro pour ca .
Sub Macro1()
Dim CA As Workbook
Dim OA As Worksheet
Dim CB As Workbook
Dim OB As Worksheet
Dim CC As Workbook
Dim OC As Worksheet
Dim DLA As Long
Dim DC As Integer
Dim DLB As Long
Dim DLC As Long
Dim DEST As Range
Set CA = Workbooks("C:\Users\Utilisateur\Desktop\test\A.xlsx")
Set OA = CA.Worksheets(Sheet1)
Set CB = Workbooks("C:\Users\Utilisateur\Desktop\test\B.xlsx")
Set OB = CB.Worksheets(Sheet1)
Set CC = Workbooks("C:\Users\Utilisateur\Desktop\test\C.xlsx")
Set OC = CC.Worksheets(Sheet1)
DLA = OA.Cells(Application.Rows.Count, "A").End(xlUp).Row
DLC = OC.Cells(Application.Rows.Count, "A").End(xlUp).Row
DC = OA.Cells(3, Application.Columns.Count).End(xlToLeft).Column
Set DEST = OB.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
OA.Range(OA.Cells(3, 2), OA.Cells(DLA, DC)).Copy DEST
Set DEST = OB.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
OC.Range(OC.Cells(3, 2), OA.Cells(DLC, DC)).Copy DEST
End Sub
j'ai mis les chemin et les nom des onglets
parc contre j'ai un message d'erreur "indice n'appartient pas à la selection"
et j'ai remplace
Set CA = CA.Worksheets(1)
dans ton code par ;Set CC = Workbooks("C:\Users\Utilisateur\Desktop\test\C.xlsx")
merci d'avance