Pb code avec variable faisant appel à cellules

Bonjour,

J'essaie d'écrire quelques lignes de code dans VBA dans lequel je crée un tableau qui se remplie avec les valeurs stockées dans une feuille excel.

Après avoir vérifié que les limites des lignes et colonnes était correcte je continue à avoir le beug suivant : "L'indice n'appartient pas à la sélection" et même en passant rapidement sur mes variables il m'est arrivé que parfois il soit noté "vide" alors que celle-ci réfère bien à une cellule remplie de ma feuille excel.

Pourriez vous m'aider et m'indiquer ou est le beug, svp ?

Je mets la partie de code ci dessous

Sub aircum()
'Module prens les résultats dans la page des aires et fait le ratio sur le total des aires cumulées = aires relatives
Dim j As Long
Dim i As Long
Dim d As Long, F As Long, k As Long, l As Long
Dim Tot()
Dim c As Long
Dim S()
Dim T()

'Tot le total des aires pour un individu, S la valeur de l'aire dans la page de calcul des aires,
'T le résultat du ratio des aires

d = Sheets("test").Range("F2").Value
F = Sheets("test").Range("F3").Value
k = Sheets("test").Range("H2").Value
l = Sheets("test").Range("H3").Value

ReDim S(k To l, d + 1 To F - 1)
ReDim T(k To l, d + 1 To F - 1)
ReDim Tot(k To l, 1)

'Stock les valeurs de S()

For j = d + 2 To F - 2
For i = k To l
S(i, j) = Sheets("Aires").Cells(i, j).Value
Next
Next

MsgBox ("valeurs stockées")
'Calcul de Tot par ligne
For i = k To l
c = 0
For j = d + 2 To F - 2
c = c + S(i, j)
Next
Tot(i) = c

Next
MsgBox ("tot par ligne ok")

Sheets("cumul").Cells(k, 1).Resize(l, 1) = Tot
'Calcul de T, ratio aire/ aire cumulée
For i = k To l
For j = d To F
T(i, j) = S(i, j) / Tot(i)
Next
Next

Sheets("cumul").Cells(k, d).Resize(l, F) = T
MsgBox ("aire relative")

End Sub

Edit modo : pour plus de lisibilité, merci de mettre le code entre balise avec le bouton </>

Bonjour CTprs,

Avec un fichier ce serait mieux, pour que l'on puisse voir ce qui se passe

A+

Oui j'ai essayé mais le fichier est trop lourd même après l'avoir réduit et compressé...

les wetransfer ne fonctionnent pas