bonjour a tous je reviens avec ce probleme
j ai trouver sur les tuto ce genre de petit code pour incorporer une macro dans un classeur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub creationMacro()
Dim X As Integer
 
With ActiveWorkbook.VBProject.VBComponents("Feuil1") '.CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
 
    'Chr(38) permet d'insérer le symbole & dans la procédure.
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

voila moi maintenant ce que je voudrais enregistrer ca:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
 
 workbook.open()
application.displayalerts=false
 end sub
dans le module thisworkbook

si quelqu un a la solution