XL 2010 Connection avec autre feuille excel et insertion

Bonjour a tous,

Je n'arrive pas à insérer des données sur un autre classeur fermé que j'utilise comme base de donnée. Voila mon code

Dim Cn As ADODB.Connection
Dim Fichier As String, NomFeuille As String, Texte_SQL As String

'Définit le classeur fermé servant de base de données
Fichier = Sheets("Parametres").Range("A2")

'CONNECTION
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With

NomFeuille = "Informations personnelles"

LaDate = TextBox2.Value
leNom = TextBox1.Value
lePrenom = TextBox1.Value
PrixUnit = TextBox1.Value

strSQL = "INSERT INTO [" & NomFeuille & "$] " & "VALUES ('" & LaDate & "', " & "'" & leNom & "', " & "'" & lePrenom & "', '" & PrixUnit & "')"

Cn.Execute strSQL (buggue)

Je pense que certain vont explosé de rire, mais j'ai plus l'habitude de travailler avec une base Access (Que je n'ai plus au boulot). La avec une autre feuille Excel je suis complément dans le flou.

Si quelqu'un pouvais me donner un petit coup de pouce sur la façon d'ecrire le code

Je vous remercie

seb