Erreur de syntaxe de l'aide please

Bonjour,

j'ai une erreur de syntaxe sur mon update que je n'arrive pas a resoudre
voila le pble : ( merci d'avance)

Sub TestMAJ2()
Dim wrk As Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String
Dim SQL_S, SQL_U, SQL_I As String
Set wrk = DBEngine.Workspaces(0)
Set db = DBEngine.OpenDatabase("D:\SAFIG\SAFIG.mdb")
SQL = "SELECT * FROM Import ;"
Set rs = db.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)
Do While Not rs.EOF

MsgBox (rs("Clé"))

SQL_S = "SELECT Clé FROM SAFIG where Clé =" & rs("Clé") & ";"
Set conn = CurrentProject.Connection
conn.Execute SQL

If Not (rs.EOF Or rs.BOF) Then

'Si clé trouvée, Requête pour UPDATE dans SAFIG
SQL_U = "UPDATE SAFIG SET" & " IdRemise" = "& rs.Idremise &" & "," & _
" Perimetre = " & rs.perimetre &" & _
" DateRemise2 = " & rs.DateRemise2 &" & "," & _
" Vacation = " & rs.Vacation &" & "," & _
" FileInteg = " & rs.FilInteg &" & "," & _
" FileCloture = " & rs.FileCloture &" & "," & _
" Restitution = " & rs.Restitution &" & "," & _
" MotifRejet = " & rs.MotifRejet &" & "," & _
" DestRejet = " & rs.DestRejet &" & "," & _
" Adresse1 = " & rs.Adresse1 &" & "," & _
" Adresse2 = " & rs.Adresse2 &" & "," & _
" Adresse3 = " & rs.Adresse3 &" & "," & _
" Adresse4 = " & rs.Adresse4 &" & "," & _
" Centre = " & rs.Centre &" & "," & _
" Origine = " & rs.Origine &" & "," & _
" RefAXA = " & rs.RefAXA &" & "," & _
" URL = " & rs.URL &" & "," & _
" Lignes = " & rs.Lignes &" & "," & _
" Pages = " & rs.Pages &" & "," & _
" EnCours = " & rs.EnCours &" & "WHERE Clé = " & rs.Clé &" & ";"
MsgBox ("update" & SQL_U)
Else
'Requête pour insertion dans SAFIG

SQL_I = "INSERT INTO SAFIG SELECT Import.* FROM Import WHERE Clé=" & rs("Clé") & ";"

MsgBox ("insert" & SQL_I)
End If
rs.MoveNext
Loop

End Sub