Bonsoir,

tout est dans le titre. Voici mon code allégé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
    Dim ac As Range
    ac = ActiveCell
 
    Sheets("Dessin").Shapes("Cad").Copy
    Range("A1").Select
    ActiveSheet.Paste
 
    '---
    DoEvents
    ac.Select
End Sub
Pourquoi mon image reste-elle sélectionnée ?

ESVBA