XL 2013 Connexion fichier fermé entre excel

Option Explicit

Private Declare Function SetTimer Lib "User32" (ByVal hWnd As Long, _
                                                ByVal nIDEvent As Long, _
                                                ByVal uElapse As Long, _
                                                ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "User32" (ByVal hWnd As Long, _
                                                 ByVal nIDEvent As Long) As Long

Dim TimerID As Long

Sub TimerOff()
    KillTimer 0, TimerID
End Sub

Sub TimerOn(Interval As Long)
    TimerID = SetTimer(0, 0, Interval, AddressOf mTest.Tst)
End Sub

Option Explicit

Sub Tst()
Dim sFichier As String
    sFichier = "C:\.....\kiki.xls"
    If ExistenceFichier(sFichier) = False Then Exit Sub
    TestIsFileOpen sFichier
End Sub

Private Sub TestIsFileOpen(sFichier As String)
    If IsFileOpen(sFichier) Then
        Application.StatusBar = sFichier & " déjà ouvert"
    Else
        Application.StatusBar = sFichier & " non utilisé en ce moment"
    End If
End Sub

Private Function IsFileOpen(filename As String) As Boolean
Dim filenum As Integer, errNum As Integer

    On Error Resume Next
    filenum = FreeFile()

    Open filename For Input Lock Read As #filenum
    Close filenum
    errNum = Err
    On Error GoTo 0

    Select Case errNum
    Case 0
        IsFileOpen = False
    Case 70
        IsFileOpen = True
    Case Else
        Error errNum
    End Select
End Function

Private Function IsFileOpenLight(filename As String) As Boolean
Dim fichier As Integer
    On Error Resume Next

    fichier = FreeFile()
    Open filename For Input Access Read Lock Read Write As fichier

    If Err.Number = 0 Then
        IsFileOpenLight = False
        Close fichier
    Else
        IsFileOpenLight = True
    End If
End Function

Private Function ExistenceFichier(sFichier As String) As Boolean
    ExistenceFichier = Dir$(sFichier) <> "" And sFichier <> ""
End Function

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    TimerOff
End Sub

Private Sub Workbook_Open()
    TimerOn 2000
End Sub

    With Cn
        .Provider = "MSDASQL"
        .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & "DBQ=" & fichier & "; ReadOnly=False;"
    End With

 Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";Extended Properties=""Excel 12.0;HDR=YEs;"""
   

    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] " _
        & "VALUES (#" & LaDate & "#, " & _
        "'" & leNom & "', " & _
        "'" & lePrenom & "', " & _
        PrixUnit & ")"
   
    For i = 1 To 10000
        Cn.Execute strSQL
    Next i