Excel avec VB

Bonjour,

Je dois faire un logiciel sous excel en utilisant un VB.

Voilà mon VB:

Private Sub Workbook_Open()

If D4 = 1 Then
' Instruction si la condition est vraie msg ="45 dB (A)"
MsgBox msg

ElseIf D4 = 2 Then
' Instruction si la condition est vraie msg ="42 dB (A)"
MsgBox msg

ElseIf D4 = 3 Then
' Instruction si la condition est vraie msg ="38 dB (A)"
MsgBox msg

ElseIf D4 = 4 Then
' Instruction si la condition est vraie msg ="35 dB (A)"
MsgBox msg

ElseIf D4 = 5 Then
' Instruction si la condition est vraie msg ="30 dB (A)"
MsgBox msg

End If

End Sub

où D4 est la case D4 de mon classeur excel.
comment faire pour insérer ce VB dans la case E4 afin qu'il s'effectu ???

Merci