automation vers EXCELL

bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et inscrit des
données puis se ferme
le problème réside dans le format, a chaque ouverture de la base et appel de
la procédure, tout fonctionne à merveille, dès que je relance une seconde ou
xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal