Copier-coller de shapes en VBA

Bonjour à tous,

Je suis en grosse galère : je n'arrive pas à faire un copier-coller de shapes en VBA. J'ai essayé plein de solutions, mais aucune ne convient.

Avec la macro "SelectionBL", les 2 shapes sont collées sans tenir compte de "if"

Avec la macro "SélectionBL2", au mieux il ne se passe rien, au pire excel ne retrouve même pas les shapes et m'affiche un message d'erreur "objet introuvable".

Si vous avez une solution.... ça fait plus d'une semaine que je m'arrache les cheveux sur cette macro.

Bonne journée

Bonjour

De base vous avez déjà un souci car vous ne respectez pas les majuscules et minuscules dans le nom de vos feuilles

Sinon remplacez tout le code par celui ci-dessous

Option Compare Text
Sub SelectionBL()
Dim sObject1 As Shape
Dim sObject2 As Shape

With ThisWorkbook
    If .Sheets("saisie").Range("a1") = "double" Then
        For Each sObject1 In .Sheets("dessins").Shapes
            If sObject1.Name = "BLcentrale" Then
                sObject1.Copy
                .Sheets("Check Plan").Paste
            End If
        Next sObject1
    End If
    If .Sheets("saisie").Range("a1") = "simple" Then
        For Each sObject2 In .Sheets("dessins").Shapes
            If sObject2.Name = "BandeLaçageVerticale" Then
                sObject2.Copy
                .Sheets("check Plan").Paste
            End If
        Next sObject2
    End If

    .Sheets("Check plan").Activate
End With
End Sub

Si ok -->

Cordialement

Merci beaucoup ! ça fonctionne bien !

Je vais l'appliquer à toutes mes formes sur mon doc principal (celui-ci est juste un extrait...) et voir si je ne crée pas de nouveau problème en chemin.