Erreur de compilation lors de la suppression de contrôles

Bonjour à tous,

J'ai créé un programme qui permet d'ajouter dynamiquement un label dans lequel se trouve une textbox et un bouton "Delete". Il y a aussi un bouton "Add" qui permet de dupliquer ce trio label-textbox-bouton à volonté pour l'utilisateur. Bien évidemment, le bouton "Delete" permet de supprimer le label auquel il est associé ainsi que la textbox et lui même.
En parallèle j'ai aussi créé un bouton "Reset" qui supprime tous les trios créés par l'utilisateur. Le hic c'est que celui-ci ne fonctionne plus dès qu'il y a trois lots et Excel renvoie l'erreur de compilation suivante: "Seuls des commentaires peuvent apparaitre après End Sub, End Fonction, ou End Property". Le problème c'est que tout semble ok et d'ailleurs si je re-clique sur "Reset", le 3ème lot restant est supprimé sans problème.

Quelqu'un pourrait-il m'aider svp?

Je vous aurais bien mis en PJ mon fichier mais je n'ai pas l'impression que c'est faisable.

Il faut créer dans la première feuille un bouton "Validate", un bouton "Reset", une textbox nommée "FrmCounter" (valeur d'origine = 1), une autre "FrmIndex (valeur =1) et une troisième "LeftCounter".

Voici le code (désolé, il est un peu lourd malgré mes simplifications):

'Dans Feuil1:

Option Explicit

Private Sub Validate_Click()

Call FrmCreation
Call AddButtonFrm


End Sub

Sub Reset_Click()

Dim Ctrl As OLEObject
Dim MyVar, MySheet, DeleteAddMacro As String


'Macro pour enlever tous les contrôles ajoutés dynamiquement

MySheet = ActiveSheet.Name


For Each Ctrl In ActiveSheet.OLEObjects 'Loop sur chaque contrôle

If TypeOf Ctrl.Object Is MSForms.CommandButton Then

If Ctrl.Object.Caption = "Delete" Then 'Si c'est un bouton Delete, on appelle sa sub qui se charge de la suppression
MyVar = Ctrl.Name
Application.Run (MySheet & "." & MyVar & "_Click")

ElseIf Ctrl.Object.Caption = "Add" Then 'Si c'est un bouton Add, on le supprime directement ainsi que son code
MyVar = Ctrl.Name & "_Click"
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
.DeleteLines .ProcStartLine(MyVar, 0), .ProcCountLines(MyVar, 0) 'Suppression du code du bouton Add
End With
ActiveSheet.Shapes(Ctrl.Name).Delete
End If

End If

Next Ctrl

End Sub

'Code du Module1

Option Explicit

Public Sub AddButtonFrm()

'Crée le bouton "Add"

Dim Obj As OLEObject
Dim MacroAdd As String
Dim X As Integer

'Ajoute le bouton dans la feuille
Set Obj = Worksheets(1).OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=67, Top:=400, Width:=50, Height:=30)
With Obj
.Name = "FrmAdd"
.Object.Caption = "Add"
End With

'Ajoute le code associé au bouton:
MacroAdd = "Sub FrmAdd_Click()" & vbCrLf
MacroAdd = MacroAdd & "Call FrmCreation" & vbCrLf
MacroAdd = MacroAdd & "End Sub" & vbCrLf

With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
X = .CountOfLines + 1
.InsertLines X, MacroAdd
End With
End Sub

Sub FrmCreation()

Dim Lab, Del, TxtBody As Object
Dim DeleteMacro As String
Dim X, LabelCounter, LabelIndex As Integer

'Macro généréé lorsqu'on clique sur le bouton "Add"

LabelCounter = ActiveSheet.FrmCounter.Value 'Compteur utilisé pour connaître le nombre de labels créés
LabelIndex = ActiveSheet.FrmIndex.Value 'Compteur utilisé pour donner un nom au nouveaux objets créés (labels et objets à l'intérieur)

'-----------------------------------------------
'Crée FRM LABEL:
Set Lab = Worksheets(1).OLEObjects.Add(ClassType:="Forms.Label.1", Left:=(LabelCounter - 1) * 300 + 47 + 10 * LabelCounter, Top:=250, Width:=300, Height:=130) 'Crée un Label

With Lab
.Name = "Frm" & LabelIndex & ""

With .Object
.Caption = " Frm " & LabelIndex & ""
.BackStyle = 0
.BorderStyle = 1
End With
End With

'-----------------------------------------------
'Crée TEXTBOX:
Set TxtBody = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Left:=(LabelCounter - 1) * 300 + 57 + 10 * LabelCounter, Top:=265, Width:=240, Height:=60)

With TxtBody
.Name = "Frm" & LabelIndex & "TxtBody"
End With


'-----------------------------------------------
'Crée bouton "DELETE":
Set Del = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=(LabelCounter - 1) * 300 + 57 + 10 * LabelCounter, Top:=340, Width:=50, Height:=30)


With Del
.Name = "Frm" & LabelIndex & "Delete"
With .Object
.Caption = "Delete"
End With
End With

'Insert le code du bouton Delete (cliqué sur celui-ci supprimera le label et les contrôles à l'intérieur
DeleteMacro = "Sub Frm" & LabelIndex & "Delete_Click()" & vbCrLf
DeleteMacro = DeleteMacro & "ActiveSheet.LeftCounter.Value =ActiveSheet.Frm" & LabelIndex & ".Left" & vbCrLf
DeleteMacro = DeleteMacro & "ActiveSheet.Shapes(""Frm" & LabelIndex & "TxtBody"").Delete" & vbCrLf
DeleteMacro = DeleteMacro & "ActiveSheet.Shapes(""Frm" & LabelIndex & "Delete"").Delete" & vbCrLf
DeleteMacro = DeleteMacro & "ActiveSheet.Shapes(""Frm" & LabelIndex & """).Delete" & vbCrLf
DeleteMacro = DeleteMacro & "With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule" & vbCrLf
DeleteMacro = DeleteMacro & " .DeleteLines .ProcStartLine(""Frm" & LabelIndex & "Delete_Click"", 0), .ProcCountLines(""Frm" & LabelIndex & "Delete_Click"", 0)" & vbCrLf 'Supprime le code du bouton Delete
DeleteMacro = DeleteMacro & "End With" & vbCrLf
DeleteMacro = DeleteMacro & "Call ShiftControls" & vbCrLf
DeleteMacro = DeleteMacro & "ActiveSheet.FrmCounter.Value = ActiveSheet.FrmCounter.Value - 1" & vbCrLf
DeleteMacro = DeleteMacro & "End Sub" & vbCrLf

With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
X = 0 'Reset X sur 0
X = .CountOfLines + 1
.InsertLines X, DeleteMacro
End With

ActiveSheet.FrmCounter.Value = LabelCounter + 1
ActiveSheet.FrmIndex.Value = LabelIndex + 1

End Sub

'Code du Module2

Option Explicit

Sub ShiftControls()

Dim Ctrl As OLEObject

'Macro servant à déplacer les labels et leurs contrôles si un label situé à gauche est supprimé

'Loop sur chaque contrôle
For Each Ctrl In ActiveSheet.OLEObjects

'Se focalise sur les contrôles dont la propriété Top est comprise entre 200 et 380
If Ctrl.Top >= 200 And Ctrl.Top <= 380 And Ctrl.Left > ActiveSheet.LeftCounter.Value Then

'Déplace le contrôle de 310 vers la gauche
Ctrl.Left = Ctrl.Left - 310

End If
Next Ctrl

End Sub