XL 2013 vba fermeture d'un fichier uniquement si la macro la ouvert

Sub Macro1()
   Dim Wbk As Workbook, Client As String, OuvertParMacro As Boolean
   Client = "Toto" ' à adapter
   On Error Resume Next
   Set Wbk = Workbooks("encodage.xlsm")
   OuvertParMacro = Err.Number <> 0
   If OuvertParMacro Then
      Err.Clear
      Set Wbk = Application.Workbooks.Open("C:\Users\" & Client & "\Dropbox\cobra\Comptabilite\2021\encodage.xlsm")
      If Err Then MsgBox "Impossible d'ouvrir le fichier", vbCritical, "Macro1": Exit Sub
      End If
   On Error GoTo 0
   …
   If OuvertParMacro Then Wbk.Close SaveChanges:=False
   End Sub

Sub truc()
    Dim EtaitOuvert As Boolean
    On Error Resume Next
    Workbooks("encodage.xlsm").Activate
    On Error GoTo 0 ' Mettre ici le on error goto 0 pour ne pas masque d'autres erreurs possibles plus loin
    ''
    ' Si Pas d'erreur le fichier était ouvert sinon il était fermé
    EtaitOuvert = Err.Number = 0
    '
    ' L'ouvrir éventuellement
    If Not EtaitOuvert Then
        Application.Workbooks.Open "C:\Users\" & Client & "\Dropbox\cobra\Comptabilite\2021\encodage.xlsm"
    End If

    'Ferme le fichier sans enregistrer les modifications si la macro la ouvert
    If Not EtaitOuvert Then Workbooks("encodage.xlsm").Close False

End Sub