Private Sub CommandButton1_Click()
Dim n%, d%, tablo#(), i%, j%
With Sheets("Returns")
n = Application.Count(.Columns(1)) 'nombre de valeurs étudiées par titre
d = Application.CountA(.Rows(1)) 'nombre de titres (dimensions du tableau)
ReDim tablo(d - 2, d - 2)
For i = 0 To d - 2
For j = i To d - 2
tablo(i, j) = Application.Covar(.[A2].Offset(, i).Resize(n), .[A2].Offset(, j).Resize(n)) 'Calcul de la matrice synthétique
tablo(i, j) = Application.Covar(.[B2].Offset(, i).Resize(n), .[B2].Offset(, j).Resize(n))
tablo(j, i) = tablo(i, j)
Next
Next
End With
Range("E5").Resize(d - 1, d - 1) = tablo 'Coller valeurs de la matrice synthétique
End Sub