Insère trois lignes de code dans le Module1 du classeur NomFich.xls
Pour tester ce code, insérer un module "Module1" et remplacer "ThisWorkbook.name" par le nom de votre 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
15
16
Sub EcrireDuCodeDansUnModule()
Dim i, nomFich, x As Long
nomFich = ThisWorkbook.Name 'Nom du classeur concerné à adapter
    For i = 1 To Application.VBE.VBProjects.Count
        If InStr(Application.VBE.VBProjects(i).Filename, nomFich) <> 0 Then
            For Each LeModule In Application.VBE.VBProjects(i).VBComponents
                If LeModule.Name = "Module1" Then
                    x = LeModule.CodeModule.CountOfLines
                    LeModule.CodeModule.InsertLines x + 1, "Private Sub LaMacroInseree()"
                    LeModule.CodeModule.InsertLines x + 2, "    Msgbox ""Bienvenue sur le forum !"""
                    LeModule.CodeModule.InsertLines x + 3, "End sub"
                End If
            Next
        End If
    Next i
End Sub