XL 2016 VBA Matrice de Covariance tableau

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

Private Sub CommandButton1_Click()
   Dim Rng As Range, AdrExt
   Set Rng = Feuil4.[A1].CurrentRegion
   Set Rng = Rng(2, 2).Resize(Rng.Rows.Count - 1, Rng.Columns.Count - 1)
   AdrExt = Rng.Address(True, True, xlR1C1, True)
   With Me.[E5].Resize(Rng.Rows.Count, Rng.Rows.Count)
      .FormulaR1C1 = "=COVAR(INDEX(" & AdrExt & ",0,ROW()-4),INDEX(" & AdrExt & ",0,COLUMN()-4))"
      .Value = .Value
      End With
   End Sub