erreur code suite à import données d'access

[David]

Bonjour le forum
Vous allez et je n’en doute pas me sortir de l’impasse dans laquelle je suis.
Explication :

J’importe de requêtes d’Access des données dans plusieurs feuilles d’Excel que j’ai, au préalable nommé.
J’ai défini une plage sur laquelle je me base et effectue donc, ma boucle.
Mon code s’exécute normalement jusqu’à la dernière ligne :
.Refresh BackgroundQuery:=False ou je me trouve avec le message :
‘Erreur de syntaxe SQL
Je pense que les informations de la ligne agrandie sont mal renseignées ce qui occasionne ce message.
Je sèche un peu sur ce coup là.
C’est donc là que j’ai besoin de vous pour m'aider à corriger ce qui ne va pas
En vous remerciant par avance.

Dim plage As Range, nom As String, plage2 As Range
    Sheets('affaire').Activate
    Set plage = Sheets('affaire').Range('a2').End(xlDown)(1, 1)
    Set plage2 = Range(Selection, 'a2')
    
      
    For Each cell In plage2
    

    Sheets('Données' & cell.Value).Select
    Range('J7').CurrentRegion.Select
    Selection.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        'ODBC;DSN=MS Access Database;DBQ=C:\\mes documents\\suivi .mdb;DefaultDir=C:\\Mes documents;DriverId=25;FIL=MS Access;MaxBufferSi' _
        ), Array('ze=2048;PageTimeout=5;')), Destination:=Range('J7'))
        .CommandText = Array( _
        '[size=4][color=#0000FF]SELECT cell.value.différence, cell.value.`alerte `, cell.value.Pays, cell.value.designation' & Chr(13) & '' & Chr(10) & 'FROM `C:\\Mes documents\\suivi `.cell.value cell.value' _[/color][/size]        )
        .Name = 'Lancer la requête à partir de MS Access Database'
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Next

End sub