Bonjour, j'ai enfin réussi a créer dynamiquement des objets mais .... maintenant il faut le supprimer (quelle galère ce code !!!!!)

voila mon bout de code qui crée les objets :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Activate()
 
Dim obj As OLEObject
 
    Dim i As Integer
    Dim n As Long
    n = Sheets("BD").Range("X2").Value - 1
 
For i = 0 To n
 
    Set obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
    With obj
        .left = 750 'position horizontale
        .top = 190 + i * 35 'position verticale
        .width = 63.75 'largeur
        .height = 25 'hauteur
        .Object.Caption = "VOIR"
        .Visible = True
    End With
    Next i
End Sub


Mais comment les supprimer maintenant sans mettre la pagaille dans ma feuille

Merci.