Message "dépassement de capacité"

Bonjour,

Pourquoi ai je ce message " Dépassement de capacité" en lançant cette macro
Nb : j'ai 45000 lignes de renseignées

Sub SIMA_1()

Dim L As Integer
L = Range("A65536").End(xlUp).Row
Columns("A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "Mois"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=MONTH(RC[1])"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2", "A" & L)
End Sub

Comment faire ?
Par avance merci.