Message d'un fichier Excel

Private Sub Workbook_Open()
    MsgBox "Bla bla bla..bla bla" & vbCrLf & "Bla bla!"
    Sheets("Feuil1").Select
End Sub

[font=Courier New][color=darkblue]Sub[/color] messagebox()
[color=darkblue]Dim[/color] Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Souhaitez-vous continuer?"    [color=green]' Définit le message.[/color]
Style = vbYesNo + vbCritical + vbDefaultButton2    [color=green]' Définit les boutons.[/color]
Title = "Démonstration de MsgBox "    [color=green]' Définit le titre.[/color]
Help = "DEMO.HLP"    [color=green]' Définit le fichier d'aide.[/color]
Ctxt = 1000    [color=green]' Définit le contexte de[/color]
                [color=green]' la rubrique.[/color]
' Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
[color=darkblue]If[/color] Response = vbYes [color=darkblue]Then[/color]    [color=green]' L'utilisateur a choisi Oui.[/color]
    MyString = "Oui"    [color=green]' Effectue une action.[/color]
[color=darkblue]Else[/color]    [color=green]' L'utilisateur a choisi Non.[/color]
    MyString = "Non"    [color=green]' Effectue une action.[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]

End [color=darkblue]Sub[/color][/font]