Pb de Syntaxe dans l'instruction INSERT INTO

Bonjour,

Voilà pour le boulot je souhaiterai renseigner une base de données EXCEL avec des champs d'un formulaire WORD. j'ai trouvé un tuto sur internet qui marchait bien au début mais voilà après avoir rajouté des valeurs, je me retrouve avec une erreur de syntaxe dans l'instruction INSERT INTO mais je ne la visualise pas.

Si vous avez l'oeil ce serait super d'avoir vos lumières pour la localiser..Je suis vraiment néophyte dans le domaine. Merci par avance !

Je vous mets le code ci-dessous:

Sub TransferToExcel()
'Transfer a single record from the form fields to an Excel workbook.
  Dim doc As Document
  Dim strTitre As String
  Dim strBassin As String
  Dim strSource As String
  Dim strThematique As String
  Dim strType As String
  Dim strAnnee As String
  Dim strResume As String
  Dim strDuree As String
  Dim strPublic As String
  Dim strTarif As String
  Dim strRef As String
  Dim strContact As String
  Dim strSQL As String
  Dim cnn As ADODB.Connection
  'Get data.
  Set doc = ThisDocument
  On Error GoTo ErrHandler
  strTitre = Chr(39) & doc.FormFields("txtTitre").Result & Chr(39)
  strBassin = Chr(39) & doc.FormFields("txtBassin").Result & Chr(39)
  strSource = Chr(39) & doc.FormFields("txtSource").Result & Chr(39)
  strThematique = Chr(39) & doc.FormFields("txtThematique").Result & Chr(39)
  strType = Chr(39) & doc.FormFields("txtType").Result & Chr(39)
  strAnnee = Chr(39) & doc.FormFields("txtAnnee").Result & Chr(39)
  strResume = Chr(39) & doc.FormFields("txtResume").Result & Chr(39)
  strDuree = Chr(39) & doc.FormFields("txtDuree").Result & Chr(39)
  strPublic = Chr(39) & doc.FormFields("txtPublic").Result & Chr(39)
  strTarif = Chr(39) & doc.FormFields("txtTarif").Result & Chr(39)
  strRef = Chr(39) & doc.FormFields("txtRef").Result & Chr(39)
  strContact = Chr(39) & doc.FormFields("txtContact").Result & Chr(39)
  'Define sql string used to insert each record in the destination workbook.
  'Don't omit the $ in the sheet identifier.
  strSQL = "INSERT INTO [DonneesGRP$]" _
    & "(Titre, Bassin, Source, Thematique, Type, Annee, Resume, Duree, Public, Tarif, Ref, Contact)" _
    & " VALUES (" _
    & strTitre & ", " _
    & strBassin & ", " _
    & strSource & ", " _
    & strThematique & ", " _
    & strType & ", " _
    & strAnnee & ", " _
    & strResume & ", " _
    & strDuree & ", " _
    & strPublic & ", " _
    & strTarif & ", " _
    & strRef & ", " _
    & strContact _
    & ")"
  Debug.Print strSQL
  'Define connection string and open connection to destination workbook file.
  Set cnn = New ADODB.Connection
  With cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=C:\Users\KlaiM\Desktop\Destination\DonneesGRP.xlsx;" & _
      "Extended Properties=Excel 8.0;"
    .Open
    'Transfer data.
    .Execute strSQL
  End With
  Set doc = Nothing
  Set cnn = Nothing
  Exit Sub
ErrHandler:
  MsgBox Err.Number & ": " & Err.Description, _
    vbOKOnly, "Error"
  On Error GoTo 0
  On Error Resume Next
  cnn.Close
  Set doc = Nothing
  Set cnn = Nothing
End Sub