XL 2010 Excel VBA et Liens Hypertextes sujet

Bonjour à tous,

Je programme en VBA sur Excel 2010.
Mon fichier est une liste des 75000 chemins d'accès, noms de fichiers et liens vers les dossiers.
J'ai créé une macro simple pour créer des liens hypertextes :

Code :

---

Sub mettre_liens()
    Dim fin
    Dim nRow
   
    For nRow = 5 To Range("B4").End(xlDown).Row
        With Sheets("Contenu de répertoire")
             If .Cells(nRow, 4).Value <> "" Then
               .Hyperlinks.Add ActiveSheet.Range("B" & nRow), ActiveSheet.Range("D" & nRow).Value
               .Hyperlinks.Add ActiveSheet.Range("D" & nRow), ActiveSheet.Range("D" & nRow).Value
               .Hyperlinks.Add ActiveSheet.Range("E" & nRow), ActiveSheet.Range("E" & nRow).Value
            End If
        End With
       
        Next
       
    MsgBox "Remplissage liens terminé !", vbInformation, "Opération terminée"
       
End Sub

---

Ce pendant, la macro plante en pleine exécution sans aucune raison apparente. une fois elle plante à la 23516è ligne, une fois à la 34321è ligne ou 43278è ligne. Bref j'ai un message d'erreur qui apparait :

Code :

---

Erreur d'exécution 1004 : erreur définie par l'application ou l'objet

---

Ce que je ne comprends pas, c'est qu'elle effectue ce dont j'ai besoin mais plante au bout d'un moment :(
Auriez vous une idée sur l'origine du problème ?
Merci