Excel VBA : test fichier nom variable ouvert

Function FichOuvert(Optional Mois As Integer = 0) As Boolean
Dim TB
Dim F As String
Dim Wk As Workbook
    TB = Array("Janvier", "Fevrier", "Mars") 'Etc..
    If Mois = 0 Then
    'Le fichier du mois actuel
        F = "C:\monRepertoire1\utilisation_" & TB(Month(Now)) & ".xlsx"
    Else
        'Le fichier du mois sélectionner
        F = "C:\monRepertoire1\utilisation_" & TB(Mois) & ".xlsx"
    End If

    On Error Resume Next
    Set Wk = Workbooks(F)
    On Error GoTo 0
    FichOuvert = Not Wk Is Nothing
End Function

Function FichOuvert(Optional Mois As Integer = 0) As Boolean   
Dim fich As Integer   
Dim F As String   
dim TB   
    TB = Array(" ", "Janvier", "Fevrier", "Mars") 'Etc..   
    If Mois = 0 Then   
    'Le fichier du mois actuel   
        F = "C:\monRepertoire1\utilisation_" & TB(Month(Now)) & ".xlsx"   
    Else   
        'Le fichier du mois sélectionner   
        F = "C:\monRepertoire1\utilisation_" & TB(Mois) & ".xlsx"   
    End If   
    On Error Resume Next   
    fich = FreeFile   
    Open F For Input Lock Read As #fich   
    Close #fich   
    If Err <> 0 Then FichOuvert = True   
End Function

Function ClasseurOuvert(ExtraitNom As String) As Boolean  
Dim Wb As Workbook  

ClasseurOuvert = False  
For Each Wb In Application.Workbooks  
    If Wb.Name Like ExtraitNom & "*" Then  
        ClasseurOuvert = True 
        Exit For 
    End If  
Next Wb  
End Function

Sub test()  
ClasseurOuvert "utilisation_"  
End Sub