Private Sub CommandButton1_Click()
Dim n%, d%, tablo#(), i%, j%
With Sheets("test 12")
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 - 1, d - 1)
For i = 0 To d - 1
For j = i To d - 1
tablo(i, j) = Application.Covar(.[A2].Offset(, i).Resize(n), .[A2].Offset(, j).Resize(n))
tablo(j, i) = tablo(i, j)
Next
Next
End With
Rows("2:65536").ClearContents
Range("A2").Resize(d, d) = tablo [COLOR="Red"]'si d > 256 utiliser Excel 2007[/COLOR]
End Sub