Copier dans la première cellule vide d'une ligne

Workbooks("Classeur1.xls").Sheets(1).Range("D1:L100").Copy Before:=Workbooks("Classeur2.xls").Sheets(1).Range("a1")

Sub extraire()
Dim Source As Object, Requete As Object
Dim Onglet As String, Plage As String, fichier As String
Dim Texte_SQL As String

'détermination de la plage à extraire
    fichier = "C:\Users\David\Classeur1.xls"   ' à modifier
    Onglet = "Feuil1" '
    Plage = "d1:l100"
 
'connexion ADO
Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "data source=" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
   
     'exerce la requete ADO sur les donnée à recopier
    Texte_SQL = "SELECT * FROM [" & Onglet & "$" & Plage & "]"
    Set Requete = CreateObject("ADODB.Recordset")
    Set Requete = Source.Execute(Texte_SQL)
     
 'restitue sur ton classeur
    Range("A1").CopyFromRecordset Requete
     
'libère les pointeurs
Set Requete = Nothing
Set Source = Nothing
   
End Sub