XL 2010 Coller les données d'un tableau

 Sub Absences()
Dim ClasAbs As Workbook, Cible As Workbook, DL As Long, Chemin As String
Dim FC As Worksheet
Set Cible = ThisWorkbook
Set FC = Cible.Worksheets("ABS")

Chemin = "C:\répertoire1\répertoire2\répertoire3\" ' à adapter
Set ClasAbs = Workbooks.Open(Chemin & "absences 2016.xls")
With ClasAbs.ActiveSheet
DL = .Range("G" & Rows.Count).End(xlUp).Row
.Range("G1:J" & DL & ",M1:M" & DL & ",P1:P" & DL & ",Y1:Y" & DL).Copy FC.Range("A1")
End With
ClasAbs.Close
End Sub

Sub Absences()
Dim ClasAbs As Workbook, Cible As Workbook, DL As Long, Chemin As String
Dim FC As Worksheet
Set Cible = ThisWorkbook
Set FC = Cible.Worksheets("ABS")

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False 'n'autorise pas choix multiple
If .Show = -1 Then ' si fichier sélectionné
    Set ClasAbs = Workbooks.Open(.SelectedItems(1))
    With ClasAbs.ActiveSheet
     DL = .Range("G" & Rows.Count).End(xlUp).Row
     .Range("G1:J" & DL & ",M1:M" & DL & ",P1:P" & DL & ",Y1:Y" & DL).Copy FC.Range("A1")
    End With
    ClasAbs.Close
Else
    MsgBox "Aucun fichier sélectionné"
    Exit Sub
End If
End With
End Sub