Recordset de base excel vers autre base excel

Bonjour,
Voila je souhaiterais pouvoir exécuter une fonction sql me récupérant les données d'une table excel, mon problème est que j'ai un code mais il ne fonctionne pas sous excel 2010, je crois il fonctionne sous excel 2003. j'aimerais savoir si il est possible de le faire marcher sous excel 2010.

Sub RequeteClasseurFerme_Excel2007()
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Rst As ADODB.Recordset

'Définit le classeur fermé servant de base de données
Fichier = "C:\Documents and Settings\mimi\dossier\NomClasseur.xlsx"
'Nom de la feuille dans le classeur fermé
NomFeuille = "Feuil1"

Set Cn = New ADODB.Connection

'--- Connexion ---
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
'-----------------


'
'... la requête ...
'


'--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing

End Sub