Erreur d'Exécution '424' objet requis

Bonjour,

en cherchant a automatisé ma création de lien hypertexte je suis tombé sur un code qui me convenais et qui a fonctionné :

Sub hyperlien()
Dim c As Range
For Each c In Range([A8], [A65586].End(xlUp))
ActiveSheet.Hyperlinks.Add c, "http://xxxxxxxx/dossier 1/sous dossier 1/sous dossier 2/sous dossier 3/sous dossier 4/2022/" & c.Value & ".msg"
Next c
End Sub

et en le lançant ce matin j'ai eu Erreur d'Exécution '424' objet requis

Pourriez-vous m'aider

bonjour,

vérifie si la feuille en question n'est pas protégée.

oui j'ai vérifier il n'y a aucune protection sur mon fichier,

après je l'ai enregistré en Classeur 97 - 2003 (*.xls) pour la prise en compte des macros.