Copiez et collez le code suivant pour créer un nouveau sous-procédure qui affiche une boîte de message en utilisant le code VBA:
Private Sub displayMessageBox ()
On Error GoTo Err_displayMessageBox:
MsgBox "boîte de message d'affichage dans Excel VBA", vbInformation, "Message test"
Exit_displayMessageBox:
Exit Sub
Err_displayMessageBox:
MsgBox Err.DescriptionReprendre Exit_displayMessageBox:
End Sub