Erreur 1004

Bonjour,

Je cherche depuis plusieurs heures en vain pourquoi ma macro me retourne l'erreur 1004, alors qu'elle fonctionne ! Ce que je veux qu'elle fasse sur la page (entre autre changer des valeurs) fonctionne... mais le code d'erreur apparait...

La ligne en gras précédée de ">>" est la ligne contenant l'erreur.

Voici le code :

Sub fusion_listerecap_gethyperlinks()
Dim F As Worksheet
Dim dest As Range
Dim i As Integer
Dim rng As Range, cell As Range

i = 2
Set rng = Range("d4:d500")

Set dest = ActiveSheet.Range("B2")
dest.CurrentRegion.Offset(1).ClearContents

For Each F In Worksheets
    ActiveSheet.Hyperlinks.Add _
    Anchor:=ActiveSheet.Cells(i, 2), _
    Address:="", _
    SubAddress:=F.Name & "!A1", _
    TextToDisplay:=F.Name
        
    i = i + 1
        
    dest.Offset(, 2) = F.Range("B1")
    dest.Offset(, 1) = F.Range("A6")
    dest.Offset(, 3) = F.Range("B6")
    dest.Offset(, 4) = F.Range("E1")
    Set dest = dest.Offset(1)
Next F

Set dest = Nothing

For Each cell In rng.Cells
>> cell.Value = Worksheets(1).Range("A" & cell.Value)
Next

End Sub

Merci d'avance.

Cordialement, Romain.