Sub mlk()
Dim mat(20, 20)
For i = 0 To 20
For j = 0 To 20
mat(i, j) = Sheets("Distances").Range("j4").Offset(i, j)
Next j
Next i
Call symetrisation(mat)
For i = 0 To 20
For j = 0 To 20
Sheets("Distances").Range("j4").Offset(i, j) = mat(i, j)
Next j
Next i
End Sub
Sub symetrisation(mat)
For i = 0 To 20
For j = i + 1 To 20
mat(i, j) = mat(j, i)
Next j
Next i
End Sub