Killer processus Excel dans Access VBA

Bonjour,

Je tente de développer une petite base de données dans Access avec des liens directes dans Excel.
Cependant j'ai un problème, lorsque que je ferme Excel via mes lignes de codes VBA, j'ai toujours le processus Excel.exe en cours. Je voudrais bien le supprimer car cela fait bugé lors de la prochaine utilisation du code... Je sais pas si j'ai été très claire. Pour info voici mon code :

Private Sub Image_Ok_Click()

Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim var_datedebut As Date
Dim var_datefin As Date
Dim var_jourlabo As Byte
Dim var_numessai As String

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("\\Lechemin\Planning GHEL.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True 'Rendre le doc visible
'Récupération du classeur par défaut
Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set wsExcel = wbExcel.ActiveSheet

var_jourlabo = Texte_JourneeEstimee.Value
var_datefin = DateEssaiPlannifiee.Value
var_datedebut = DateEssaiPlannifiee - Texte_JourneeEstimee.Value
var_numessai = Texte_NumEssai.Value

For i = 7 To 100

If ActiveSheet.Range("A" & i).Value = "" Then GoTo lignefin Else

Next i

lignefin:
ActiveSheet.Range("A" & i).Activate
ActiveSheet.Range("A" & i).Value = var_numessai
ActiveSheet.Range("B" & i).Activate
ActiveSheet.Range("B" & i).Value = var_datedebut
ActiveSheet.Range("C" & i).Activate
ActiveSheet.Range("C" & i).Value = var_datefin

ActiveWorkbook.Save

wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel

'Désallocation mémoire

Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing

End Sub



Merci
ps : Je suis débutant sur la programmation, ce code est une compil d'infos trouvées sur le net.