[VBA] Probleme erreur 9 "L'indice n'appartient pas à la selection"

Bonjour,

J'ai un probleme lors de l'ouverture d'un fichier, je veux vérfié si les liaisons sont bonne ou non. J'ai ce code :

nomfichier = liaison2 & "\" & liaison1

        'cache l'ouverture du fichier

            'Application.Visible = False

        'si un fichier lié est deja archivé, la demande de mise a jour des liaisons ne s'affiche pas

            Application.DisplayAlerts = False

            Application.AskToUpdateLinks = False

        'ouvre le fichier

 
'si erreur dans le chemin, msg pour vérifier le fichier

On Error GoTo ErrMsg

            Workbooks.Open FileName:=nomfichier

            Workbooks(liaison1).Activate

            MsgBox Err.Number & Err.Description

ErrMsg:

        If Err.Number = 1001 Then

            MsgBox ("Une des liaisons n'est pas valide, vérifiez le fichier '" & liaison1 & "' et reconvertissez le."), vbExclamation

            Workbooks(liaison1).Close

            Exit Sub

        End If

 
        'active le fichier

            Workbooks(liaison1).Activate

Si j'ai l'erreur 1001 alors, j'affiche un Msgbox pour dire qu'il faut vérifier le fichier. Mais lorsque que j'execute au niveau de ma msgbox err.number, j'ai l'erreur 9 " L'indice n'appartient pas à la selection". Je ne vois pas pourquoi j'ai cela.

Une idée?

Merci d'avance