erreur de compilation : variable non définie

Salut tout le monde !

voici mon code :

Private Sub CommandButton2_Click()
a = MsgBox("David veux-tu garder les données du plannning?", vbYesNo)
If a = vbYes Then
Sheets("Cal").Range("a1:n39").PrintPreview
End If
If a = vbNo Then
If Application.Dialogs(xlDialogPrinterSetup).Show Then
Range("a1:n39").PrintPreview

Range("a7:n11").ClearContents
Range("a7:n11").Interior.ColorIndex = 2

Range("a14:n18").ClearContents
Range("a14:n18").Interior.ColorIndex = 2

Range("a21:n25").ClearContents
Range("a21:n25").Interior.ColorIndex = 2

Range("a28:n32").ClearContents
Range("a28:n32").Interior.ColorIndex = 2

Range("a35:h39").ClearContents
Range("a35:h39").Interior.ColorIndex = 2

Sheets("Cal").Visible = False
'Cells.Interior.ColorIndex = xlNone

End If
End If
End Sub

le problème se trouve au niveau de "a=msgbox("...")"

pouvez-vous m'aider svp ! merci