Bonjour,

J'ai une image "Plein03" qui est stockée par exemple en A1 de la feuille "Table".
Je veux la copier en "AM7" et qu'elle reste en "A1"
Je sais la déplacer avec le code ci-dessous, ça va très vite, mais je n'ai plus d'image référence en A1 puisque je l'ai seulement déplacée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Deplace()
    Dim F As Worksheet
    Dim T As Range
    Set F = Sheets("Table")
    Set T = ws.Range("AM7")
    With F.Shapes("Plein03")
        .LockAspectRatio = msoFalse
        .Top = T.Top
        .Left = T.Left
        .Height = T.Height
        .Width = T.Width
    End With
End Sub
Si j'utilise la solution bestiale de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Range("A1").Select
Selection.Copy
Range("AM7").Select
ActiveSheets.Paste
Ca marche, mais c'est terriblement long !

Comment faire ?

Merci



Se