Copier une image avec lien hypertexte

Bonjour les forumeurs !

J'aimerais copier une image qui contient un lien hypertexte vers un onglet (du même classeur) sur l'ensemble de mes feuilles dont le nom est un numéro.

J'arrive sans soucis à copier l'image, mais le lien disparait :/

Ci-joint mon code :

Sub copie_cartouche()
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    If IsNumeric(WS.Name) Then
        ThisWorkbook.Sheets("Template").Shapes("Cartouche_Lien").Copy
        WS.Pictures.Paste.Select
'        WS.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & WS.Name & "'!A1"
    End If
Next WS
End Sub

La ligne commentée est celle où j'ai tenté (sans succès) d'insérer le lien post-copie.

Merci d'avance !

Edith : Trouvé sur un forum anglais :

Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    If IsNumeric(WS.Name) Then
        With WS
            ThisWorkbook.Sheets("Template").Shapes("Cartouche_Lien").Copy
            .Pictures.Paste.Select
            .Pictures(.Pictures.Count).Name = "Cartouche_Lien"
            .Hyperlinks.Add Anchor:=.Shapes("Cartouche_Lien"), Address:="", SubAddress:="TOTAL" & "!A1"
        End With
    End If
Next WS
End Sub

Bonjour,

Essayer :

Sub copie_cartouche()
    Dim WS As Worksheet
    For Each WS In ThisWorkbook.Worksheets
        If IsNumeric(WS.Name) Then
            ThisWorkbook.Sheets("Template").Shapes("Cartouche_Lien").copy
            With WS
                .Pictures.Paste
                .Hyperlinks.Add .Shapes(.Shapes.Count), "", "'" & .Name & "'!A1"
            End With
        End If
    Next WS
End Sub

Cordialement.

Bonjour MFerrand.

Ta proposition rejoint la mienne en étant un peu plus propre, par contre je garde le nommage du graph car je le dégage à chaque mise à jour.