Copier / coller le lien hypertexte d'une cellule

[deathbiscuit]

Bonjour tout le monde!

Ce que j'ai déjà:
Dans la feuille 1 l'utilisateur clique sur une cellule d'une plage donnée (S4:S82), un userform s'affiche pour lui demander de saisir un lien pour l'ouverture d'un fichier. Le lien fonctionne et le texte de la cellule devient "Ouvrir le projet".

Dans la feuille je souhaite que la plage J5:J83 contienne automatiquement le contenu de la cellule de la plage de la feuille 1. C'est à dire que le texte de la cellule soit copié ainsi que le lien hypertexte du fichier externe.

J'aimerai bien que le code fonctionne pour toutes les cellules sans faire de boucles. Ni de test supplémentaires si possible. Comme le chemin d'accès, il s'adapte à toutes les cellules de la plage.

Code de ma macro, qui correspond au bouton OK de mon userform:

Private Sub CommandButton1_Click()

Dim path As String

    path = TextBox1.Value

    ActiveCell.Value = "Voir le projet"
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:= _
        path

    ActiveCell.Font.Size = 12
   
    Unload cheminAccesS3

End Sub

Merci d'avance!