Modifier Macro par Macro

Bonjour,

je souhaite changer directement du code à l'aide d'une macro. Pour cela, j'ai utilisé :

Dim PremLigne As Integer
Dim Numero As Single

With ActiveWorkbook.VBProject.VBComponents("Passer_OA").CodeModule
    PremLigne = .ProcBodyLine("Passer_OA", 0)

    .DeleteLines 129, 1
    .InsertLines PremLigne + 128, "If Sheets(""Ordre"").Range(""H13"") = "" & n1 & "" Then"

End With
End Sub

Cependant, la ligne ci dessous ne fonctionne pas !

With ActiveWorkbook.VBProject.VBComponents("Passer_OA").CodeModule

DE plus, est-il possible, étant donné que j'ai plusieurs lignes à modifier, de faire de la façon suivante à l'intérieur du With ?:

    
    .DeleteLines 129, 1
    .InsertLines PremLigne + 128, "If Sheets(""Ordre"").Range(""H13"") = "" & n1 & "" Then"
    .DeleteLines 138, 1
    .InsertLines PremLigne + 137, "If Sheets(""Ordre"").Range(""H13"") = "" & n2 & "" Then"

Merci d'avance !

Bonjour,

pour mon problème, la solution était toute bête, il suffit de faire :

Menu Outils d'Excel -> Macro -> Sécurité -> Onglets Sources fiables -> Cocher "Faire confiance au projet Visual Basic".