Delete lines impossible

Bonjour,
je débute en VB excel.

J'ai codé ces 5 lignes dans la Feuil1 de mon classeur (afin d'appeller la macro Creer_Bouton dès qu'on change la valeur en A3)

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A3")) Is Nothing Then Call Creer_Bouton End if End Sub

---

Ca marche bien


Ensuite ma macro Creer_bouton crée des boutons (comme avec la boite à outils de contrôle) et avec la macro jointe ci-dessous je voudrais associer une macro à chaque bouton.
Mon problème c'est que je n'arrive pas à effacer les macros déjà affectées au bouton avant de les recréer, car j'ai l'erreur suivante :

Erreur d'éxécution '-2147024809 (80070057)' : Argument ou appel de procédure incorrect

sur la ligne :

Code:

---

.DeleteLines 6, .CountOfLines

---

Qui pourrait-me dire comment effacer les macros affectées aux boutons (dans Feuil1) tout en gardant mes 6 lignes de codes


Code de ma macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

Sub Affecter_Macro() Dim laMacro As String Dim x As Long Dim j As Long Dim Y As Long Dim Noligne As Long     With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule   Y = .CountOfLines   If Y > 5 Then   .DeleteLines 6, .CountOfLines   End If       laMacro = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & vbCrLf   laMacro = laMacro & "If Not Application.Intersect(Target, Range(" & A3 & ")) Is Nothing Then" & vbCrLf   laMacro = laMacro & "Call Creer_Bouton" & vbCrLf   laMacro = laMacro & "End If" & vbCrLf   laMacro = laMacro & "End Sub"       Y = .CountOfLines + 1   .InsertLines Y, laMacro     End With   For j = 1 To x   ActiveSheet.OLEObjects(j).Select Noligne = ActiveSheet.OLEObjects(j).Top   Noligne = (Noligne / 18) + 1   laMacro = "Sub CommandButton" & j & "_Click()" & vbCrLf laMacro = laMacro & "Call Macro1(" & Noligne & ")" & vbCrLf laMacro = laMacro & "End Sub"   With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule Y = .CountOfLines + 1 .InsertLines Y, laMacro End With   Next j End Sub

---