Merci de m'avoir répondu si vite, mais j'ai essayé ce que tu m'as propossé et voici l'erreur :

Run-time error '450':
Wrong number of arguments or invalid property assigment



J'ai touver appexcel.SaveWorkspace  mais sa me demande ou le saver parce que le fichier est ouvert en read-only...

Je continu a chercher, si vous pouvez m'aider sa serait très apprécier!!

Merci!

Sa marche mais j'ai un petit probleme...  Je dois presque absolument traiter les cases avec (1,1) au lieu de "A1"  Parce que j'ai a peu pres 3000 lignes de data et environs 20 colonnes de data...  Faque sa va bcps mieu gerer avec (1,1) comme je fesais au début..  Mais bon j'va essayer de regarder sa, mais si tu sais comment faire gene toi pas ;)

Merci bcps!!

Juste pour etre certain que si quelqu'un retombe sur le sujet, qu'il comprenne bien voici le résultat final :

    'Chemin du fichier a modifier à chaque installation
        Dim repertoire As String
        repertoire = "C:\fichier.xls"
     'Ouverture de l'application
        Set appexcel = New Excel.Application

        Dim l_WorkBook As Workbook 'si tu as mis Excel dans les références de ton projet)
        Set l_WorkBook = appexcel.Workbooks.Open(repertoire)

     'Visualisation en fond d'ecran la page excel
        appexcel.Visible = False

    'TRAITER DATA ICI
        l_WorkBook.Worksheets(1).Cells(1, 1).Value = "Cycle number"  'un exemple

    'Fermet le classeur
        Call l_WorkBook.Close(True)
    'Quitte Excel
        appexcel.Quit



Voila Il faut que le fichier existe et que la référence pour "Microsft Excel X.0 Object Library" soit sélectionné