Insertion d'une image dans une cellule nommée

Salut,

Je cherche à insérer une image dans une cellule fusionnée que j'ai préalablement nommée. Dans mon cas la cellule s'appelle " Logo ", est la fusion des cellules A1 à E5 et est affectée à l'onglet " Fiche de pesée " uniquement. Pour l'instant j'ai ce code qui fonctionne :

With Tables_formulaires.Sheets("Fiche de pesée").Pictures.Insert(FichierLogo)
        With .ShapeRange
            .LockAspectRatio = msoTrue
            .Width = 73
            If .Height > 57 Then .Height = 57
            If .Width < 73 Then .Width = 73
            .Line.Visible = msoTrue
            .Line.ForeColor.ObjectThemeColor = msoThemeColorText1
            .Line.Weight = 0.25
        End With
        .Left = Tables_formulaires.Sheets("Fiche de pesée").Cells(1, 1).Left + 1
        .Top = Tables_formulaires.Sheets("Fiche de pesée").Cells(1, 1).Top + 1
        .Placement = 1
        .PrintObject = True
    End With

Pour simplifier la gestion du redimensionnement de l'image (la procédure sera au final appellée par plusieurs autres procédures) je voudrais faire référence à la cellule " Logo " plutôt qu'à " Tables_formulaires.Sheets("Fiche de pesée").Cells(1, 1) ". J'ai trouvé un code sur le net avec " .Names("Logo") " à la place de " .Cells(1,1) " mais apparemment ça ne fonctionne pas, j'ai une erreur " L'indice n'appartient pas à la sélection ".

Comment est ce qu'il fait faire le lien avec le nom de la cellule ?

Merci d'avance.

Manu