Placer ce code dans un module standard, n'importe lequel, d'un classeur, n'importe lequel, et l'exécuter.
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Sub EcrireDuCodeNimporteOu()
Dim i, LeCode(1 To 13)
Dim NomClasseur As String, NomFeuil As String
Dim Wb As Workbook
Application.Workbooks.Add
NomClasseur = ActiveWorkbook.Name
Worksheets.Add
NomFeuil = ActiveSheet.Name
    LeCode(1) = "Private Sub Worksheet_Deactivate()"
    LeCode(2) = "Dim msg"
    LeCode(3) = "    msg = ""Après avoir beaucoup cherché sur le Web"" &  vbcr"
    LeCode(4) = "    msg = msg & ""Et suite à une méchante galère"" &  vbcr"
    LeCode(5) = "    msg = msg & ""J'ai trouvé un site super"" & vbcr"
    LeCode(6) = "    msg = msg & ""Où je peux enfin me défouler"" & vbcr"
    LeCode(7) = "    msg = msg & ""A glisser des trucs perverts"" & vbcr"
    LeCode(8) = "    msg = msg & ""Dans des codes élaborés"" & vbcr"
    LeCode(9) = "    msg = msg & ""Conclusion :"" & vbcr"
    LeCode(10) = "    msg = msg & "" Ne faites jamais confiance dans les codes qu'on vous passe"" & vbcr"
    LeCode(11) = "    msg = msg & "" Assurez-vous de l'avoir compris avant de dire """"Youpi !"""""
    LeCode(12) = "    msgbox msg"
    LeCode(13) = "End sub"
    Set Wb = Workbooks(NomClasseur)
    With Wb.VBProject.VBComponents(NomFeuil).CodeModule
        For i = .CountOfLines To 1 Step -1
            .DeleteLines i
            DoEvents
        Next
        For i = 1 To UBound(LeCode)
            .InsertLines i, LeCode(i)
        Next
    End With
    Workbooks(NomClasseur).Worksheets(2).Select
End Sub


......................................................