AIde pour erreur d'execution '9' dans vba

Bonjour,

je suis débutant sur vba et j'ai un problème sur une macro, mes compétences vba restent très limités pouvez-vous m'aider sur ce sujet je vous joins le screener de ma macro vba
A noter que c'est ReDim nbjweek(1 To nbweek, 1) qui ne fonctionne pas

Je vous remercie d'avance pr votre solidarité
tres bonne année
cdt,



Sub transfoweek(nblmax1)

Dim nblweek As Variant
Dim transfomat As Variant
Dim aboutimat As Variant
Dim totaboutimat As Variant
Dim transfoaboutimat As Variant
nbweek = 0

For i = 2 To nblmax1
If Feuil1.Cells(i, 12).Value = "Total hebdo HT" Then
nbweek = nbweek + 1
End If
Next i


ReDim nbjweek(1 To nbweek, 1)
ReDim transfomat(1 To nbweek, 1)
ReDim aboutimat(1 To nbweek, 1)
ReDim totaboutimat(1 To nbweek, 1)
ReDim transfoaboutimat(1 To nbweek, 1)
firstl = 2
lastj = 0

For i = 1 To nbweek

nblweek = 0

For j = 1 To 3000
If Feuil1.Cells(j + firstl, 1).Value = Feuil1.Cells(firstl + j - 1, 1).Value Then
nblweek = nblweek + 1
Else