Débogage de macro svp!

Bonjour,

Nous venons de passer de Microsoft Office 97-2003 à 2013. J'ai copié un fichier de macros (XLB) afin de le ré-installer sur plusieurs postes. Or, j'ai cette erreur-ci quand j'ouvre la macro : Erreur d'exécution '9': L'indice n'appartient pas à la sélection

Voici le code de ma macro, quelqu'un pourrait me déboguer svp?
Sub OperationCadas()
'
' OperationCadas Macro
' Ouvre formulaire opérations cadastrales
'

'
Workbooks.Add(Template:="\\sernv1\evatous\Modeles\Excel\OperCadast.xlt"). _
RunAutoMacros Which:=xlAutoOpen
End Sub
Sub BaseOperCadas()
'
' BaseOperCadas Macro
' Ouvre base de données opérations cadastrales en lecture seule
'

'
Workbooks.Open Filename:="\\sernv1\evabpd\OperCadastrale\BaseOperCadast.xls" _
, ReadOnly:=True
End Sub
Sub FinTAJ()
'
' FinTAJ Macro
' OUvre formulaire fin taj
'

'
Workbooks.Add(Template:="\\sernv1\evatous\modeles\Excel\MAJ\FinTaj.xlt"). _
RunAutoMacros Which:=xlAutoOpen
End Sub
Sub BaseFinTAJ()
'
' BaseFinTAJ Macro
' Ouvre la base de données fin TAJ
'

'
Workbooks.Open Filename:="\\sernv1\evataj\Fin TAJ\2013\BaseFinTAJ2013.xls", _
ReadOnly:=True
End Sub

Merci beaucoup