Dim wbp As Workbook
Dim tabligne(100, 1)
Set wbp = Workbooks("Pointage.xlsm")
Set wbbase = Workbooks.Open(ThisWorkbook.Path & "\Base.xlsm")
lastline = wbbase.Sheets(1).Range("A65536").End(xlUp).Row
i = 1
Set pplage = wbp.Sheets(2).Range(Cells(1, 10), Cells(lastline, 10))
For Each cc In pplage
tabligne(pplage, 0) = wbp.Sheets(2).Cells(i, 10)
tabligne(pplage, 1) = wbp.Sheets(2).Cells(i, 11)
i = i + 1
Next