bonjour a tout le monde

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
Dim W As Workbook
Dim vbM As VBComponent
 
Private Sub CommandButton1_Click()
 
    'correspondant au checkBox de la colonne A
    If CheckBox1.Value = True Then
        Set W = ActiveWorkbook 'prend le classeur courant
        'Crée un nouveau module dans le classeur
        Set vbM = W.VBProject.VBComponents.Add(vbext_ct_StdModule)
 
        'Ajoute la fonction qui efface la colonne A dans le classeur actif
        vbM.CodeModule.InsertLines 1, "Sub EffacerColonneA"
        vbM.CodeModule.InsertLines 2, "Range(""A:A"").clear"
        vbM.CodeModule.InsertLines 3, "End Sub"
    End If       
End Sub
j'ai un code qui génère une macro, jusqu'ici tous va bien, mais lorsque je le lance je souhaiterai que ça ne me renvoi pas sur Visual Basic, je sais pas si j'ai été clair... en fait j'ai envie que ça me crée le module mais j'ai pas envie de voir s'il s'est bien créer, je ve pas que Visual s'ouvre après que je le lance.
Si vous avez des questions???