XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .

Sub Copier_Colonnes()
    Dim rs As Object
    Dim ws As Worksheet
    '
    ' Feuille de réception des données
    Set ws = ThisWorkbook.Sheets("Fichier exel")
    '
    ' Nettoyage des données existantes (offset évite l'entête et la première colonne)
    With ws.Range("B2").CurrentRegion.Offset(2, 1)
        If .Rows.Count > 1 And .Columns.Count > 1 Then
           With .Resize(.Rows.Count - 1, .Columns.Count - 1)
            Debug.Print .Address ' pour vérification durant tests
            .ClearContents
            End With
        End If
    End With
    '
    ' Objet connexion
    With CreateObject("Adodb.connection")
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                            ThisWorkbook.Path & "\JTO-306355-0 GammeComplete KC-V2.xlsx" & _
                            ";Extended Properties=""Excel 8.0;HDR=YES"";"
        .CursorLocation = 3
        '
        ' ouverture de la connexion
        .Open
        '
        ' création d'un objet recordset pour recevoir les données
        Set rs = .Execute("SELECT [Libellé (FR)],[Outil de contrôle],[Unité de mesure],[Valeur mini],[Valeur maxi] FROM [V2$];")
        '
        ' copie des données dans la feuille en prochaine cellule libre de la colonne c
        ws.Cells(Rows.Count, 3).End(xlUp)(2).CopyFromRecordset rs
        '
        ' fermer le recordset et libérer la mémoire
        rs.Close: Set rs = Nothing
        '
        ' fermer la connexion (end with libèrera la mémoire occupée par l'objet )
        .Close
    End With
End Sub

'Transfert les données saisies du Classeur A dans le Classeur B et enregistre
AWb.Sheets("V2").Range("g2:g" & AWb.Sheets("V2").Range("G150").End(xlUp).Row).Copy _
Wb.Sheets("Fichier excel").Range("C3:C").End(xlUp)(2)