XL 2019 Blocage fonction "ThisWorkbook.FollowHyperlink"

Private Sub btnLire_Click()
    Dim i As Integer
    Dim Film As String
    Dim Chemin As String
    
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) Then
            Film = ListBox2.List(i)
            On Error GoTo GestionErreurs
            Chemin = Dir("G:\ANIMATIONS-ENFANTS\" & Film & ".AVI")
            ThisWorkbook.FollowHyperlink Chemin
            Exit Sub
        End If
        
GestionErreurs:
        MsgBox "Erreur ! Ouverture film impossible : " & Film & " introuvable"
    Next i
End Sub