Option Base 1
Sub Main()
Dim tabrend() As Double
Sheets("resultat").Range("C:Z") = ""
'déterminer le nombre d'action et le nombre de période
Taille = Sheets("data").Cells(1, 2).End(xlDown).Row - 1
nombreserie = Sheets("data").Cells(1, 2).End(xlToRight).Column - 1
'création des entetes des tab réponses
For i = 1 To nombreserie
Sheets("resultat").Cells(2, i + 4) = Sheets("DATA").Cells(1, 1 + i)
Sheets("resultat").Cells(i + 2, 4) = Sheets("DATA").Cells(1, 1 + i)
Sheets("resultat").Cells(6 + nombreserie, 4 + i) = Sheets("DATA").Cells(1, 1 + i)
Sheets("resultat").Cells(i + 6 + nombreserie, 4) = Sheets("DATA").Cells(1, 1 + i)
Next
' création et affectation des valeurs des rendements dans tabrend()
ReDim tabrend(Taille - 1, nombreserie)
For j = 1 To nombreserie+1
For i = 1 To Taille - 1
tabrend(i, j) = (Sheets("DATA").Cells(i + 2, j + 1) - Sheets("DATA").Cells(1 + i, j + 1)) / Sheets("DATA").Cells(1 + i, j + 1)
Next
Next
'création des tab covar et corel réponses
For j = 1 To nombreserie
For i = 1 To nombreserie
Sheets("resultat").Cells(2 + j, i + 4) = WorksheetFunction.Covar(tabrend(j), tabrend(i))
Sheets("resultat").Cells(6 + j + nombreserie, i + 4) = WorksheetFunction.Correl(tabrend(j), tabrend(i))
Next
Next
End Sub