Erreur exécution 6 incompréensible

Sub ffffzefzlol()
Dim valmdp&, valmdp2&, valmdp3&, valmdp4&, code5&, valmdp6&, valmdp7&, valmdp8&, g&, f&
a = Format(Now, "yyyy")
b = 1515
c = Format(Now, "m")
d = Format(Now, "d")
e = Hour(Now)
f = a * a - b - 226 * c * c * c + d * d * d
g = 43857
End Sub

Sub aTest()
Dim a&, b&
a = 3
b = 3
MsgBox Application.Product(4873, a, b)
End Sub

Sub ffffzefz()
Dim valmdp As Long, valmdp2 As Long, valmdp3 As Long, valmdp4 As Long, code5 As Long, valmdp6 As Long, valmdp7 As Long, valmdp8 As Long

a = Format(Now, "yyyy")
b = 1515
c = Format(Now, "m")
d = Format(Now, "d")
e = Hour(Now)
f = a * a - b - 226 * c * c * c + d * d * d
g = 4873 * 3& * 3&