Ecrire par macro du code dans un module

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:

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