exporter une table access vers excel

Bonjour tout le monde,

Lors de l'exportation d'une table access vers excel je rencontre le message d'erreur suivant:
Microsoft Excel ne peut pas convertir certaines des  cellules.Le nombre total d'erreurs est de 125 et voici mon code
je ne sais pas d'ou elle vienne cette erreur merci de  m'aider a ce sens.

<!--#include file="conn.asp"-->

<%
SQLQuery = "SELECT * FROM annonces where valide='oui'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQLQuery, conn, 1, 2

   Set FSO = Server.CreateObject("Scripting.FileSystemObject")
   dim dir : dir = Server.MapPath("files")
   set inF = FSO.CreateTextFile(dir&"/excel.xls")

   ' Fichier au format Excel (.slk)
  
      inF.writeLine"ID;PWXL;N;E" ' Début du codage excel
      ' chr (34) remplace les guillements à la suite de l'instruction
      inF.writeLine"C;Y1;X1;K"&chr(34)&("Référence Annonce")&chr(34)
      inF.writeLine"C;Y1;X2;K"&chr(34)&("Référence Client")&chr(34)
      inF.writeLine"C;Y1;X3;K"&chr(34)&("Titre Annonce")&chr(34)
      inF.writeLine"C;Y1;X4;K"&chr(34)&("Date Annonce")&chr(34)
   inF.writeLine"C;Y1;X5;K"&chr(34)&("Date Insertion")&chr(34)
      inF.writeLine"C;Y1;X6;K"&chr(34)&("Photo")&chr(34)
      inF.writeLine"C;Y1;X7;K"&chr(34)&("Annonce")&chr(34)
      inF.writeLine"C;Y1;X8;K"&chr(34)&("Categorie")&chr(34)
   inF.writeLine"C;Y1;X9;K"&chr(34)&("Sous Categorie")&chr(34)
      inF.writeLine"C;Y1;X10;K"&chr(34)&("Type Annonce")&chr(34)
      inF.writeLine"C;Y1;X11;K"&chr(34)&("Type opération")&chr(34)
      inF.writeLine"C;Y1;X12;K"&chr(34)&("Rubrique")&chr(34)
  
      i=2 ' Affichage à partir de la ligne 2
      While Not rs.eof
   inF.writeLine"C;Y"&(""&i&";X1;K")&(rs("ref_annonce"))
   inF.writeLine"C;Y"&(""&i&";X2;K")&(rs("ref_clt"))
         inF.writeLine"C;Y"&(""&i&";X3;K")&chr(34)&(rs("titre"))&chr(34)
         inF.writeLine"C;Y"&(""&i&";X4;K")&chr(34)&(rs("date_annonce"))&chr(34)
  
         inF.writeLine"C;Y"&(""&i&";X5;K")&chr(34)&(rs("date_insert"))&chr(34)
         inF.writeLine"C;Y"&(""&i&";X6;K")&chr(34)&(rs("photo"))&chr(34)

         inF.writeLine"C;Y"&(""&i&";X7;K")&chr(34)&(rs("annonce"))&chr(34)
         inF.writeLine"C;Y"&(""&i&";X8;K")&chr(34)&(rs("categorie"))&chr(34)
   inF.writeLine"C;Y"&(""&i&";X9;K")&chr(34)&(rs("sscategorie"))&chr(34)
         inF.writeLine"C;Y"&(""&i&";X10;K")&chr(34)&(rs("type"))&chr(34)

         inF.writeLine"C;Y"&(""&i&";X11;K")&chr(34)&(rs("type_op"))&chr(34)
         inF.writeLine"C;Y"&(""&i&";X12;K")&chr(34)&(rs("rubrique"))&chr(34)
  
   i=i+1
         Rs.MoveNext
      wend
      inF.writeLine"E"
 
   inF.close

   ' 4. Fermeture de la connexion à la BD

   RS.close : set RS = nothing
   conn.close : set conn = nothing

Response.Redirect"files/"&"excel.xls"
%>


merci