Bonjour à tous,

Cela fait trois jours que je sèche sur la source ci après.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub InsertMacro(WbkTarget As Workbook) 
  Dim  vbCompon As VBComponent
    Set vbCompon = WbkTarget.VBProject.VBComponents.Add(1)
    vbCompon.Name = "TestDeplace"
    With vbCompon.CodeModule
      .InsertLines 1, "Declare Function GetAsyncKeyState Lib ""user32.dll"" (ByVal vKey As Long) As Integer"
    End With
L'affectation de vbCompon ne se fait pas puisque l'instruction qui suit le Set déclenche l'erreur 91 : Variable objet ou variable de bloc With non définie

Par contre, le code suivant ne pose aucun problème
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
  With WbkTarget.VBProject.VBComponents("Feuil1").CodeModule
    l = 1
    .InsertLines l, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
...
N'ayant trouvé aucune solution sur la toile, Je m'adresse à vous.

Merci d'avance