If IsFileOpen(App.Path & "\Toto.xls") = False Then
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Toto.xls")
Set Feuille = wbExcel.Worksheets(1)
appExcel.Visible = True
Else
' modification sur cette ligne :
' si le fichier n'est pas ouvert, il faut l'ouvrir
' pour pouvoir l'activer !
Set wbExcel = Workbooks.Open("Toto.xls")
Set Feuille = wbExcel.Worksheets(1)
End If
Feuille.Cells(5, 8) = SNom