Macro n'aime pas la nouvelle année

Bonjour,

j'ai mis en place une macro en 2013 pour améliorer l'ergonomie d'une base de données excel. Elle permet notamment la création automatique de lien hypertexte pour aller dans le dossier correspondant à la ligne consultée en cliquant sur la référence de la colonne L.

En début d'année j'ai ouvert le fichier nommé "bilan 2013.xls" présent dans le répertoire "Année 2013", j'ai enregistré sous le nom "bilan 2014.xls" et sous le répertoire "Année 2014".

Avec le fichier "bilan 2013.xls", j'ouvre et les liens hypertextes sont de suite actifs sans valider aucune cellule. En passant la souris sur les cellules de la colonne L, je vois s'afficher le lien hypertexte donc tout va bien.
Par contre avec le fichier "bilan 2014.xls" les liens hypertextes ne sont plus fonctionnels à l'ouverture du fichier, on ne voit pas le lien hypertexte en survolant les cellules et il faut obligatoirement entrer dans une cellule de la colonne L, et en valider le contenu pour que les liens hypertextes fonctionnent.

Je ne comprends pas cette différence de fonctionnement juste pour un changement de nom de fichier et d'un répertoire d'enregistrement.
Avez vous une idée ?

Ci dessous le code de ma macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False 'désactive le rafraîchissement d'écran
Dim derlign As Long
Dim Lien
Dim zone As Range
Dim cell As Range
Dim nom As String
Dim répertoire As String

répertoire = "\\bfrclocfp01\Ordo$\CONTROLE\Bilan Fournisseur\Année "

derlign = ActiveSheet.Range("L65536").End(xlUp).Row ' recuperation numero derniere ligne non vide en colonne L
If Not Intersect(Target, Columns("L")) Is Nothing Then 'vérifie si une valeur change en colonne L, si oui macro s'active
Set zone = ActiveSheet.Range("L" & 2, "L" & derlign) 'défini la zone de travail de la macro
For Each cell In zone
On Error Resume Next
' vérifie l'existence du répertoire année, sinon le créé
ChDir répertoire & Range("B" & cell.Row)
If Err <> 0 Then
MkDir répertoire & Range("B" & cell.Row)
End If
' vérifie l'existence du répertoire retour, sinon le créé
ChDir répertoire & Range("B" & cell.Row) & "\Non conformité"
If Err <> 0 Then
MkDir répertoire & Range("B" & cell.Row) & "\Non conformité"
End If
' vérifie l'existence du répertoire fournisseur, sinon le créé
ChDir répertoire & Range("B" & cell.Row) & "\Non conformité\" & Range("F" & cell.Row)
If Err <> 0 Then
MkDir répertoire & Range("B" & cell.Row) & "\Non conformité\" & Range("F" & cell.Row)
End If
' vérifie l'existence du sous répertoire du nom de la référence de la NC, sinon le créé
ChDir répertoire & Range("B" & cell.Row) & "\Non conformité\" & Range("F" & cell.Row) & "\" & Range("L" & cell.Row)
' vérifie qu'il existe la lettre R ou D pour poursuivre et créer le lien sinon passe à la cellule suivante car NC annulée
If Left(Range("L" & cell.Row), 1) = "R" Or Left(Range("L" & cell.Row), 1) = "D" Then
If Err <> 0 Then
MkDir répertoire & Range("B" & cell.Row) & "\Non conformité\" & Range("F" & cell.Row) & "\" & Range("L" & cell.Row)
End If

'format du lien hypertexte
Lien = répertoire & cell.Offset(0, -10) & "\Non conformité\" & cell.Offset(0, -6) & "\" & cell
'création du lien hypertexte
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=Lien
End If
Next cell


End If

Set zone = Nothing 'vide la mémoire
Application.ScreenUpdating = True 'réactive le rafraîchissement d'écran

End Sub