Recherche:

Bonjour,
J'ai refait le code de la Sub Edition pour que ce soit plus explicite.
On se rendra compte que la Shape est un conteneur avec un objet Excel.Rectangle. C'est ce dernier dont les propriétés...

Bonjour,

Une piste avec votre code modifié (voir les ///ajout/modif)

Public Sub testSh()
Dim wk As Worksheet
Dim bc As Byte
Dim nm() As Variant
Dim lg As Integer
Dim ht As Integer