Public Sub ChargementFichierAccess(CheminAccess)
Dim sqlChaine As String, ChaineConn As String
'Suppression des données présentes sur la feuille de calcul
Cells.Select
Selection.Delete shift:=xlUp
'Import des données de la table cible sur la feuille de calcul
sqlChaine = "select * from RailEventMessage"
ChaineConn = "ODBC;DSN=MS Access Database;DBQ=" & CheminAccess
ActiveSheet.QueryTables.Add(Connection:=ChaineConn, Destination:=Range("$A$4"), Sql:=sqlChaine).Refresh
End Sub