Probléme de comparison de date en VBA

Bonjour à tous,

je cherche à comparer deux listes de date avec l'outil VBA

j'ai chercher à faire 2 tableaux pour ensuite les comparer mais lorsque j'exsécute l'erreur 9 apparait

donc je pense que sa vient de la déclaration des tableau ou de leur capacité mais je ne connait pas bien le format date de VBA

voici mon code

feuille 1

Private Sub CommandButton3_Click()
Dim dateA(10000) As Date
Dim dateB(10000) As Date
comparaison
End Sub

puis dans mon module

Sub comparaison()
'
Dim i As Integer
Dim j As Integer
Dim dateA() As Date
Dim dateB() As Date
'
For i = 1 To 12

dateA(i) = Cells(4 + i, 4).Value

For j = 1 To 12

dateB(i) = Cells(24 + i, 4).Value

If dateA(i) = dateB(i) Then
MsgBox ("les dates sont les même")
Else: MsgBox ("les dates sont pas les même")

End If
Next j
Next i

End Sub

merci d'avance à ceux qui répond