Insérer une même image dans 2 onglets différents

Bonjour,

Après beaucoup de recherches, je ne parviens pas à trouver une solution au problème suivant:

J'ai actuellement une macro qui me permet, à la lecture d'une donnée, d'insérer une image sur un autre onglet de mon fichier excel. J'aimerais pouvoir insérer cette même image dans un autre onglet différent du premier. A savoir également que je voudrais que l'image s'insère sur ce dernier onglet à un autre emplacement que celui de la première insertion (Range[J5:L10] sur le code ci-dessous)!

Je vous joins le code déjà fait pour la première partie (un module et une private).

Merci d'avance.

Sub Liste_Agences(Nom As String)

Dim Fichier As String
Dim objImg As Object
Dim Emplacement As Range

Worksheets("test").Select
    For Each ShapeObj In ActiveSheet.Shapes
        If ShapeObj.Name = "Cible" Then ActiveSheet.Shapes("Cible").Delete
    Next ShapeObj

    Fichier = "C:\Users\l44eo\Desktop\Dossier images\" & Nom & ".jpg"
    Set objImg = ActiveSheet.Pictures.Insert(Fichier)

    Set Emplacement = Range("J5:L10")
    Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.DrawingObjects.Count)

    With objImg.ShapeRange
        .Name = "Cible"
        .LockAspectRatio = msoTrue
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With

Worksheets("Gestion des agences").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Catch_erreur

If [C7] <> "" Then
    Call Liste_Agences([C7])
End If

Exit Sub

Catch_erreur:
Worksheets("Gestion des agences").Select
MsgBox ("Wrong")

End Sub

Bonsoir Ipl44,

Faire une boucle sur 2 feuilles de ta macro.

Dim WS(2)
WS(1)="Test": WS(2)="Essai"
For F=1 to 2
Application.ScreenUpdating=False
Worksheets(WS(F)).Activate
suite du code
.....
End With
Next F
Application.ScreenUpdating=True
End sub

Bonsoir X Cellus,

Merci je vais tester cela. Peux-tu m'expliquer en quoi consiste le requête Application.screenupdating?

Je suis désolé je ne comprends par où tu veux que j'implante le bout de code que tu m'as proposé (je ne suis pas du tout expert en vba).. Ce code vient englober mon module déjà existant? Est-ce que j'ai des choses à modifier sur l'existant?

A nouveau,

Le Application.ScreenUpdating sert à gérer le rafraichissement de l'écran. Si il est à False, l'écran restera figé. Cela afin d'éviter l'effet flash suite à l'activation de plusieurs onglets. On rétablit par True le rafraichissement de l'écran au final. Toutes les opérations auront été réalisées et seront vues uniquement en fin de macro.

Oui, le code est à insérer dans ton code existant dans le module ou il se trouve. En remplacement de Worksheets("Test") par:

Worksheets(WS(F)).Activate

Puis après ton End With, mettre le Next F pour fermer la boucle.