'Import des données de la table cible sur la feuille de calcul
sqlChaine = "select * from MaTable"
ChaineConn = "ODBC;DSN=MS Access Database;DBQ=" & Application.GetOpenFileName()
ActiveSheet.QueryTables.Add(Connection:=ChaineConn, Destination:=Range("$A$2"), Sql:=sqlChaine).Refresh