Bonjour à toutes et à tous, après avoir parcouru le forum, je n'ai pas trouvé de réponse

J'ai un fichier avec 1 feuille "Données", depuis une macro je fais une requête SQL sur cette feuille pour me sortir une nouvelle feuille avec les résultats de la requête. Cependant la requête ne me sort pas le nombre correcte d'enregistrement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
  With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & _
        ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=2;"";"
    .Open
  End With
  Set rs = New ADODB.Recordset
  strSql = "SELECT * FROM [Données$]"
  Set rs = cn.Execute(strSql)
 Range("A1").CopyFromRecordset rs
Auparavant j'ai créé une nouvelle feuille qui est sélectionnée. Avec la requête j'ai à peine 14000 lignes qui se créent dans la nouvelle feuille alors que la feuille données a plus de 80000 lignes.
Vous allez me dire que l’intérêt actuelle est nul, mais la requête tendra a être développé de façon à faire des sélections plus tard.

Actuellement j'ai trouvé une autre solution avec un fichier externe excel et une requête sur ce fichier mais j'aimerai avoir un seul fichier plutôt que deux

Merci d'avance.